# NOT RUN {
library(clustcurv)
# Regression: 2 groups k-means
r2 <- kregcurves(y = barnacle5$DW, x = barnacle5$RC,
z = barnacle5$F, k = 2, algorithm = "kmeans")
data.frame(level = r2$level, cluster = r2$cluster)
# }
Run the code above in your browser using DataLab