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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.