Merge pull request #5 from jishnu-lab/ERPipelines

Hanxi-002 · web-flow · commit 00f736a05e4b · 2024-02-07T12:21:18.000-05:00
re merge main changes to ER pipelines
diff --git a/NAMESPACE b/NAMESPACE
@@ -90,7 +90,6 @@ export(splitSecond)
 export(standCV)
 export(testPure)
 export(testUpsilon)
-export(SLIDEcv)
 export(threshA)
 export(threshSigma)
 export(toCont)
diff --git a/R/SLIDEcv.R b/R/SLIDEcv.R
diff --git a/R/runSLIDE.R b/R/runSLIDE.R
@@ -72,7 +72,7 @@ runSLIDE <- function(y, y_path = NULL, z_path = NULL, z_matrix, all_latent_facto
   p2 <- as.double(p2)
   final_res$SLIDE_res <- SLIDE_res
   final_res$SLIDE_param <- SLIDE_param
-  final_res$marginal_vals  <- as.numeric(gsub("^[zZ]","",SLIDE_res$marginal_vals))
+  final_res$marginal_vals <- SLIDE_res$marginal_vars
   final_res$interaction <- data.frame(p1, p2)
   return(final_res)
 }

Original file line number	Diff line number	Diff line change
`@@ -72,7 +72,7 @@ runSLIDE <- function(y, y_path = NULL, z_path = NULL, z_matrix, all_latent_facto`
`72`	`72`	`p2 <- as.double(p2)`
`73`	`73`	`final_res$SLIDE_res <- SLIDE_res`
`74`	`74`	`final_res$SLIDE_param <- SLIDE_param`
`75`		`- final_res$marginal_vals <- as.numeric(gsub("^[zZ]","",SLIDE_res$marginal_vals))`
	`75`	`+ final_res$marginal_vals <- SLIDE_res$marginal_vars`
`76`	`76`	`final_res$interaction <- data.frame(p1, p2)`
`77`	`77`	`return(final_res)`
`78`	`78`	`}`