Update mfairUpdate.R

statwangz · statwangz · commit 164f20d45b6f · 2025-04-18T16:21:39.000+08:00
diff --git a/R/mfairUpdate.R b/R/mfairUpdate.R
@@ -50,7 +50,7 @@ updateMFAIR <- function(object, object_sf, k) {
   object@FX[[k]] <- object_sf@FX
 
   # Save the tree list
-  object@tree_lists[[k]] <- c(object@tree_lists[[k]], object_sf@tree_list)
+  object@tree_lists[[k]] <- object_sf@tree_list
 
   return(object)
 }

Original file line number	Diff line number	Diff line change
`@@ -50,7 +50,7 @@ updateMFAIR <- function(object, object_sf, k) {`
`50`	`50`	`object@FX[[k]] <- object_sf@FX`
`51`	`51`
`52`	`52`	`# Save the tree list`
`53`		`- object@tree_lists[[k]] <- c(object@tree_lists[[k]], object_sf@tree_list)`
	`53`	`+ object@tree_lists[[k]] <- object_sf@tree_list`
`54`	`54`
`55`	`55`	`return(object)`
`56`	`56`	`}`