data(vdendool)
nh_modes <- eot(x = vdendool, y = NULL, n = 3,
standardised = FALSE,
verbose = TRUE)
### How many modes are needed to explain 25% of variance?
nXplain(nh_modes, 0.25)
Run the code above in your browser using DataLab