R/my.methods.R

In intsvy: International Assessment Data Manager

### Print outcome

print.intsvy.reg <- function(x, ...) {
  if (all(unlist(lapply(x, is.list)))) { 
    out <- lapply(x, function(y) round(y$reg, 2))
  } else {
    out <- round(x$reg, 2)
  }
  print(out)
}

### Summary function

summary.intsvy.reg <- function(object, ...) {
  if (all(unlist(lapply(object, is.list)))) {
    out <- lapply(object, function(y) y$reg)
  } else {
    out <- object$reg  
  }
  return(out)
}