# NOT RUN {
library(metan)
library(dplyr)
# iris dataset
lpc <- iris %>%
split_factors(Species) %>%
lpcor() %>%
pairs_mantel(names = c('setosa', 'versicolor', 'virginica'))
# mtcars dataset
mt_num <- mtcars %>% select_if(., is.numeric)
lpdata <- as.lpcor(cor(mt_num[1:5]),
cor(mt_num[1:5]),
cor(mt_num[2:6]),
cor(mt_num[4:8])) %>%
pairs_mantel()
# }
Run the code above in your browser using DataLab