fix summary method

ecmerkle · Aug 28, 2023 · a9881ca · a9881ca
1 parent 5c0b6a0
commit a9881ca
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: blavaan
 Title: Bayesian Latent Variable Analysis
-Version: 0.4-9.1161
+Version: 0.4-9.1162
 Authors@R: c(person(given = "Edgar", family = "Merkle",
                     role = c("aut", "cre"),
                     email = "merklee@missouri.edu",

diff --git a/R/blav_object_methods.R b/R/blav_object_methods.R
@@ -127,9 +127,11 @@ function(object, header       = TRUE,
         }
         PE$group[PE$group == 0] <- 1
 
-        if(object@call$target == "vb") {
-            attributes(PE)$information <- "VB"
-            attributes(PE)$se <- "VB"
+        if("target" %in% names(object@call)){
+            if(object@call$target == "vb"){
+                attributes(PE)$information <- "VB"
+                attributes(PE)$se <- "VB"
+            }
         } else {
             attributes(PE)$information <- "MCMC"
             attributes(PE)$se <- "MCMC"