Update mfairSingleFactor.R

statwangz · statwangz · commit 5f16451f9970 · 2025-04-18T16:21:36.000+08:00
diff --git a/R/mfairSingleFactor.R b/R/mfairSingleFactor.R
@@ -152,7 +152,7 @@ fitSFSparse <- function(Y, X, init,
 
     # save tree list
     if (save_tree_list) {
-      init@tree_list <- append(init@tree_list, list(fitted_tree))
+      init@tree_list <- c(init@tree_list, list(fitted_tree))
     }
 
     ELBO_current <- getELBO(Y, init, obs_indices)
@@ -324,7 +324,7 @@ fitSFMissing <- function(Y, X, init,
 
     # save tree list
     if (save_tree_list) {
-      init@tree_list <- append(init@tree_list, list(fitted_tree))
+      init@tree_list <- c(init@tree_list, list(fitted_tree))
     }
 
     ELBO_current <- getELBO(Y, init)
@@ -466,7 +466,7 @@ fitSFFully <- function(Y, X, init,
 
     # save tree list
     if (save_tree_list) {
-      init@tree_list <- append(init@tree_list, list(fitted_tree))
+      init@tree_list <- c(init@tree_list, list(fitted_tree))
     }
 
     ELBO_current <- getELBO(Y, init)

Original file line number	Diff line number	Diff line change
`@@ -152,7 +152,7 @@ fitSFSparse <- function(Y, X, init,`
`152`	`152`
`153`	`153`	`# save tree list`
`154`	`154`	`if (save_tree_list) {`
`155`		`- init@tree_list <- append(init@tree_list, list(fitted_tree))`
	`155`	`+ init@tree_list <- c(init@tree_list, list(fitted_tree))`
`156`	`156`	`}`
`157`	`157`
`158`	`158`	`ELBO_current <- getELBO(Y, init, obs_indices)`
`@@ -324,7 +324,7 @@ fitSFMissing <- function(Y, X, init,`
`324`	`324`
`325`	`325`	`# save tree list`
`326`	`326`	`if (save_tree_list) {`
`327`		`- init@tree_list <- append(init@tree_list, list(fitted_tree))`
	`327`	`+ init@tree_list <- c(init@tree_list, list(fitted_tree))`
`328`	`328`	`}`
`329`	`329`
`330`	`330`	`ELBO_current <- getELBO(Y, init)`
`@@ -466,7 +466,7 @@ fitSFFully <- function(Y, X, init,`
`466`	`466`
`467`	`467`	`# save tree list`
`468`	`468`	`if (save_tree_list) {`
`469`		`- init@tree_list <- append(init@tree_list, list(fitted_tree))`
	`469`	`+ init@tree_list <- c(init@tree_list, list(fitted_tree))`
`470`	`470`	`}`
`471`	`471`
`472`	`472`	`ELBO_current <- getELBO(Y, init)`