Merge remote-tracking branch 'origin/nesmr-logdet' into nesmr-logdet

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: esmr
 Type: Package
 Title: Empirical Shrinkage Mendelian Randomization
-Version: 0.2.1.0194
+Version: 0.2.1.0195
 Author: Jean Morrison
 Maintainer: Jean Morrison <[email protected]>
 Description: Perform univariable or multivariable MR with empirical shrinkage priors.

R/direct_to_total.R

@@ -10,7 +10,7 @@
 direct_to_total <- function(B_dir, restrict_DAG = TRUE) {
   n <- nrow(B_dir)
   B_total <- solve(diag(n) - B_dir) - diag(n)
-  if(!isTRUE(all.equal(diag(B_total), rep(0, n)))){
+  if(!all(diag(B_total) == 0)){
     stop("Failed to compute total effects from direct. Check that supplied B_dir corresponds to a valid DAG.\n")
   }
   return(B_total)
@@ -26,7 +26,7 @@ direct_to_total <- function(B_dir, restrict_DAG = TRUE) {
 total_to_direct <- function(B_tot){
   n <- nrow(B_tot)
   B_dir <- diag(n) - solve(diag(n) + B_tot)
-  if(!isTRUE(all.equal(diag(B_dir), rep(0, n)))){
+  if(!all(diag(B_total) == 0)){
     stop("Failed to compute total effects from direct. Check that supplied B_tot corresponds to a valid DAG.\n")
   }
   return(B_dir)