Print MonoClust Cross-Validation Result
# S3 method for cv.MonoClust print(x, ...)
x | A |
---|---|
... | Further arguments passed to or from other methods. |
library(cluster) data(ruspini) # \donttest{ # 10-fold cross-validation cp_table <- cv.test(ruspini, minnodes = 2, maxnodes = 4) print(cp_table)#> 10-fold Cross-validation on a MonoClust object #> #> # A tibble: 3 x 3 #> ncluster MSE `Std. Dev.` #> <dbl> <dbl> <dbl> #> 1 2 9815. 2817. #> 2 3 7347. 2316. #> 3 4 2333. 1730.# }