data(vdendool)
## claculate 2 leading modes
nh_modes <- eot(x = vdendool, y = NULL, n = 2,
standardised = FALSE,
verbose = TRUE)
## default settings
plot(nh_modes, y = 1) # is equivalent to
if (FALSE) {
plot(nh_modes[[1]])
plot(nh_modes, y = 2) # shows variance explained by mode 2 only
plot(nh_modes[[2]]) # shows cumulative variance explained by modes 1 & 2
## showing the loction of the mode
plot(nh_modes, y = 1, show.bp = TRUE)
## changing parameters
plot(nh_modes, y = 1, show.bp = TRUE,
pred.prm = "r", resp.prm = "p")
## change plot arrangement
plot(nh_modes, y = 1, show.bp = TRUE, arrange = "long")
## plot locations of all base points
plot(nh_modes, locations = TRUE)
}
Run the code above in your browser using DataLab