Merge pull request #437 from ajdamico/print-replicates

Print replicates
ajdamico · Oct 31, 2023 · 6c3c10f · 6c3c10f
2 parents ed9b8a6 + 07adc45
commit 6c3c10f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/all_funs.R b/R/all_funs.R
@@ -185,6 +185,11 @@ T_fn <-
 #' @method print cvystat
 #' @export
 print.cvystat <- function(x, ...) {
+
+  if ( inherits( x , "svrepstat" ) & is.list(x)) {
+    x <- x[[1]]
+  }
+
   vv <- attr(x, "var")
 
   if (attr(x, "statistic") %in% c("alkire-foster", "bourguignon-chakravarty", "bourguignon")) {
@@ -222,6 +227,7 @@ print.cvystat <- function(x, ...) {
 #' @export
 vcov.cvystat <- function (object, ...)
 {
+  if ( inherits( object , "svrepstat" ) & is.list( object )) object <- object[[1]]
   as.matrix(attr(object, "var"))
 }