if (FALSE) {
## calculate 3 leading modes
data(vdendool)
nh_modes <- eot(x = vdendool, n = 3, standardised = FALSE,
write.out = TRUE, path.out = "~/data")
## reimport related files
rm(nh_modes)
nh_modes <- readEot("~/data")
nh_modes
}
Run the code above in your browser using DataLab