R/summary.VAF.R

#'Display a summary of the results of \code{VAF()}.
#'
#'@param object Object of class inheriting from 'VAF'.
#'@param ...  Argument to be passed to or from other methods. 
#'@examples
#'\dontrun{
#'## S3 method for class 'VAF'
#'summary(object)
#'}
#'
#'@export
summary.VAF <- function(object, ...){
  
    cat(sprintf("\nProportion of VAF for each block:\n"))
    print(object$block)
    
    cat(sprintf("\nProportion of VAF for each component of each block:\n"))
    print(object$component)
    
}

Try the RegularizedSCA package in your browser

Any scripts or data that you put into this service are public.

RegularizedSCA documentation built on May 2, 2019, 8:24 a.m.