## Example with the Faithful geyser data
if (FALSE) {
data("faithful")
X<-faithful
param=list(G=3)
res.faithful<-bootclus(X,conf=0.90,B=100,param=param)
## Plot the results
plot(res.faithful$Clus,X)
}
Run the code above in your browser using DataLab