Update to be compatible with new rCausalMGM version

tyler-lovelace1 · web-flow · commit 47e9e26abf11 · 2022-01-03T14:37:11.000-05:00
diff --git a/code/CausalMGM/StaTS.R b/code/CausalMGM/StaTS.R
@@ -48,7 +48,7 @@ StaTS <- function(data, target, alphas=c(0.01, 0.05, 0.1, 0.15, 0.2, 0.25), lamb
         }
 
         for (a in 1:length(alphas)) {
-            graph <- fciMax(data[sub,], initialGraph=ig, alpha=alphas[a])
+            graph <- fciMax(data[sub,], initialGraph=ig, alpha=alphas[a], fdr=F)
             ## print(graph$markov.blankets[[target]])
             ## for (i in 1:ncol(data)) {
             i <- which(colnames(data) %in% target)

Original file line number	Diff line number	Diff line change
`@@ -48,7 +48,7 @@ StaTS <- function(data, target, alphas=c(0.01, 0.05, 0.1, 0.15, 0.2, 0.25), lamb`
`48`	`48`	`}`
`49`	`49`
`50`	`50`	`for (a in 1:length(alphas)) {`
`51`		`- graph <- fciMax(data[sub,], initialGraph=ig, alpha=alphas[a])`
	`51`	`+ graph <- fciMax(data[sub,], initialGraph=ig, alpha=alphas[a], fdr=F)`
`52`	`52`	`## print(graph$markov.blankets[[target]])`
`53`	`53`	`## for (i in 1:ncol(data)) {`
`54`	`54`	`i <- which(colnames(data) %in% target)`