Nothing
components.graph <-
function(rl)
{
if(!inherits(rl, "landscape"))
#if (class(rl)!="landscape")
{
stop(paste(rl, " should be an object of class class 'landscape'.", sep=""), call. = FALSE)
}
cluster <- as.vector (rl$nodes.characteristics)["cluster"]
b <- as.data.frame(table(cluster))
c1 <- nrow(b)
return(c1)
}
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.