Nothing
##
## S3 method to print 'SK' object
##
print.SK <- function(x,
digits=2L,
...)
{
cat('Results\n')
print(x$out$Result,
...)
cat('\nSig.level\n',
x$out$Sig.level)
cat('\n\nStatistics\n')
print(x$stat,
digits=digits,
...)
cat('\n\nClusters\n')
cc <- x$clus
i <- 0
while(i < length(cc)){
i <- i+1
cat(paste('################# Cluster ',i,' ################\n'))
gro <- strsplit(cc[[i]],',')
cat(gro[[1]][1],sep='\n',fill=TRUE,labels = "{G1}:")
cat(gro[[1]][2],sep='\n',fill=TRUE,labels = "{G2}:")
}
}
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.