Nothing
#'Display a summary of the results of \code{structuredSCA()}.
#'
#'@param object Object of class inheriting from 'structuredSCA'.
#'@param ... Argument to be passed to or from other methods.
#'@examples
#'\dontrun{
#'## S3 method for class 'structuredSCA'
#'summary(object)
#'}
#'
#'@export
summary.structuredSCA <- function(object, ...){
cat(sprintf("\nThe estimated P matrix is\n"))
print(object$Pmatrix)
cat(sprintf("\nThe estimated T matrix is\n"))
print(object$Tmatrix)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.