##
## S3 method to sumarize 'SK' object
##
summary.SK <- function(object, ...)
{
if(!inherits(object,
'SK'))
stop("Use only with \"SK\" objects!")
cat('Goups of means at sig.level =',
object$out$Sig.level,
'\n')
print(object$out$Result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.