fixed code bug

johnczito · Jan 4, 2023 · 80c2220 · 80c2220
2 parents 91b785e + 728bcf0
commit 80c2220
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/Software.R b/R/Software.R
@@ -746,9 +746,9 @@ get_predictive_Y<-function(mcmc,
     etas = NULL
     #need to fix this
 
-    etas = data.frame(do.call(rbind, t(sapply(unique(cs),function(x) return(rbind(etas,
+    etas = do.call(rbind, t(sapply(unique(cs),function(x) return(rbind(etas,
                                                                        mvrnorm(sum(cs == x),mu[[x]],
-                                                                               Delta[[x]])))))))
+                                                                               Delta[[x]]))))))
 
 
   }else{