Remove print statements

jean997 · Nov 13, 2024 · 48cf1d8 · 48cf1d8
1 parent df5970f
commit 48cf1d8
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/R/likelihood_funcs.R b/R/likelihood_funcs.R
@@ -21,8 +21,6 @@ calc_ell2 <- function(Y, abar, a2bar, fgbar, omega, omega_logdet, s_equal){
     part_a <- sum(tcrossprod(R, omega) * R) #quad.tdiag(omega, R) %>% sum()
     diagA <- colSums(crossprod(omega,fgbar) * fgbar)
     part_b <- t(t(varabar)*diagA) %>% sum()
-    cat("log(det(omega))*n =", log(det(omega)) * n, "n = ", n, "\n")
-    print(omega_logdet)
     ell <- -0.5*(part_a + part_b - omega_logdet)
   }else{
     part_a <- map_dbl(seq(n), function(i){