X <- iris[,-5]
out <- ICS(X)
# on an ICS object
select_plot(out)
select_plot(out, type = "lines")
# on an ICS_crit object
# median criterion
out_med <- med_crit(out, nb_select = 1, select_only = FALSE)
select_plot(out_med, type = "lines")
select_plot(out_med, screeplot = FALSE, type = "lines",
color = "lightblue")
# discriminatory criterion
out_disc <- discriminatory_crit(out, clusters = iris[,5],
select_only = FALSE)
select_plot(out_disc)
Run the code above in your browser using DataLab