install.packages("devtools")
library("devtools")
install_github("bootstrap", "sgibb")
## load library
library("bootstrap")
## hclust example
createHclustObject <- function(x)hclust(dist(x), "ave")
## bootstrap
b <- bootstrap(USArrests, fun=createHclustObject, n=100L)
## plot
hc <- createHclustObject(USArrests)
plot(hc)
## draw bootstrap values to corresponding node
bootlabels.hclust(hc, b, col="blue")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.