R/Summary.R

summary.srsaPCA <- function(object, ...){
  cat(object$par)
}

print.srsaPCA <- function(x, ...){
  cat(x$par)
}
Kucharssim/SRSA documentation built on June 9, 2019, 4:49 p.m.