#' calculate sizes of clusters
#'
#' calculate sizes of clusters
#'
#' calculate sizes of clusters
#'@export
clustsizes <- function( clusters ) {
n <- unique( clusters )
s <- sapply( n, function( x ) length( which( clusters == x ) ) )
names( s ) <- n
return( s )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.