Nothing
plot.incaix <- function(x, y, ...){
# x must be a list with three components
k <- length(x$well_class)
p <- (x$well_class)/(x$Ni_cluster)*100
barplot(t(p), names.arg=1:k, ylab="% well classified units", xlab="Group")
}
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.