Unify classes

franzmohr · Jun 18, 2023 · 681f4fa · 681f4fa
1 parent a80b2bc
commit 681f4fa
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 8 deletions.
diff --git a/R/bvarxpost.R b/R/bvarxpost.R
@@ -250,7 +250,7 @@ bvarxpost <- function(object) {
     }
   }
 
-  class(object) <- append("ctryvarest", class(object))
+  class(object) <- c("ctryvarest", "list")
 
   return(object)
 }
diff --git a/R/draw_posterior.gvarsubmodels.R b/R/draw_posterior.gvarsubmodels.R
@@ -113,10 +113,8 @@ draw_posterior.gvarsubmodels <- function(object, ..., FUN = NULL, mc.cores = NUL
   }
 
   names(object) <- names_obj
-
-  if (is.null(ctry)) {
-    class(object) <- append("bgvarest", class(object)) 
-  }
+
+  class(object) <- c("bgvarest", "list")
 
   return(object)
 }

diff --git a/R/draw_posterior.gvecsubmodels.R b/R/draw_posterior.gvecsubmodels.R
@@ -61,9 +61,7 @@ draw_posterior.gvecsubmodels <- function(object, ..., FUN = NULL, mc.cores = NUL
 
   names(object) <- names_obj
 
-  if (is.null(ctry)) {
-    class(object) <- append("bgvecest", class(object))
-  }
+  class(object) <- c("bgvecest", "list")
 
   return(object)
 }