Hacky fix for #2

timjzee · Jul 3, 2024 · 8af6439 · 8af6439
1 parent cb59daf
commit 8af6439
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/ulam-function.R b/R/ulam-function.R
@@ -1037,10 +1037,7 @@ ulam <- function( flist , data , pars , pars_omit , start , chains=1 , cores=1 ,
                 # add by default
                 built <- compose_distibution( left_symbol , flist[[i]] , as_log_lik=TRUE )
                 m_gq2 <- concat( m_gq2 , built )
-                message(left_symbol)
-                message(symbols)
-                N <- symbols[[left_symbol]]$dims[[2]]
-                message("Worked")
+                N <- symbols[[left_symbol[1]]]$dims[[2]]
                 m_gq1 <- concat( m_gq1 , indent , "vector[" , N , "] log_lik;\n" )
                 # save N to attr so nobs/compare can get it later
                 nobs_save <- N