## 5 bootstrap replicates and nstart = 10 for speed in example,
## use more for real applications
data(iris)
bootres = local_bootclus(iris[,-5], nclus = 3, ndim = 2,
method = "RKM", nboot = 5, nstart = 1, seed = 1234)
boxplot(bootres$Jaccard, xlab = "cluster number", ylab =
"Jaccard similarity")
## 5 bootstrap replicates and nstart = 5 for speed in example,
## use more for real applications
#data(diamond)
#bootres = local_bootclus(diamond[,-7], nclus = 4, ndim = 3,
#method = "mixedRKM", nboot = 5, nstart = 10, seed = 1234)
#boxplot(bootres$Jaccard, xlab = "cluster number", ylab =
#"Jaccard similarity")
## 5 bootstrap replicates and nstart = 1 for speed in example,
## use more for real applications
#data(bribery)
#bootres = local_bootclus(bribery, nclus = 5, ndim = 4,
#method = "clusCA", nboot = 10, nstart = 1, seed = 1234)
#boxplot(bootres$Jaccard, xlab = "cluster number", ylab =
#"Jaccard similarity")
Run the code above in your browser using DataLab