R/print.GPCA.R

In RMAWGEN: Multi-Site Auto-Regressive Weather GENerator

NULL 
#' 
#'\code{print} S3 method for \code{GPCA} or \code{GPCA_iteration} object
#'
#' @param x a \code{GPCA} or \code{GPCAiteration} object 
#' @param rmin,rmax,cmin,cmax maximum and minimum rows and columns to be printed 
#' @param ...   passed arguments  
#' 
#' @export
#' 
#' @import methods
#' 
#' @rdname print
#' @method print GPCA
#### @S3method print GPCA
#' @aliases print
# @usage print(x, rmin = 1, rmax = 4, cmin = rmin,
#     cmax = rmax, ...)

#' @seealso \code{\link{GPCA}},\code{\link{GPCA_iteration}}
#' 

print.GPCA <- function (x,rmin=1,rmax=4,cmin=rmin,cmax=rmax,...) {
	
	print("GPCA S3 Object:")
	if (length(x)>1) {
		
		for (i in 1:(length(x)-1)) {
			
			iteration <- paste ("Iteration n:",i,sep=" ")
			print(iteration)
			print(x[[i]],rmin=rmin,rmax=rmax,cmin=cmin,cmax=cmax,...)
			
		}
	} 

	return(0)
	
}