R/print.profg.R

In cddesja/profileR: Profile Analysis of Multivariate Data in R

#'@method print profg
#'@export

print.profg <- function(x, ...){
  if (!inherits(x, "profg")) stop("Use only with 'profg' objects.\n")
	cat("\nData Summary:\n")
	print(x$data.summary)
  invisible(x) 
}