# \donttest{
library(metan)
# All numeric variables
x <- corr_coef(data_ge2)
plot(x)
plot(x, reorder = FALSE)
# Select variables
sel <- corr_coef(data_ge2, EP, EL, CD, CL)
plot(sel,
type = "upper",
reorder = FALSE,
size.text.lab = 14,
size.text.plot = 5)
# }
Run the code above in your browser using DataLab