Nothing
library("flexclust")
## make sure bootFlexclust works also for only one number of clusters
data(Nclus)
b <- bootFlexclust(Nclus, 3, nboot=10, multicore=FALSE)
print(b)
summary(b)
pdf("boot.pdf")
plot(b)
densityplot(b)
dev.off()
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.