keep trying ...

R/PREP_prior_selector.R

@@ -101,11 +101,11 @@ print.prior <- function(x, ...){
     
     for(par in names(x)){
         if(x[[par]]$dist == "beta"){
-            a <- x[[par]]$par$a
-            b <- x[[par]]$par$b
+            a <- x[[par]]$par[["a"]]
+            b <- x[[par]]$par[["b"]]
             cat(par, ": Beta( a =", round(a, 3), ", b =", round(b, 3), "), mean =", a/(a + b), ", s.e =", sqrt(a*b/((a+b)^2*(a + b + 1))), "\n")
         } 
-        if(x[[par]]$dist == "gaussian") cat(par, ": N( mean =", round(x[[par]]$par$mean, 3), ", sd =", round(x[[par]]$par$sd, 3), ")\n")
+        if(x[[par]]$dist == "gaussian") cat(par, ": N( mean =", round(x[[par]]$par[["mean"]], 3), ", sd =", round(x[[par]]$par[["sd"]], 3), ")\n")
     }
     cat("===========================================\n")
 }