# NOT RUN {
library(metan)
# iris dataset
lpc <- iris %>%
group_by(Species) %>%
lpcor() %>%
pairs_mantel(names = c('setosa', 'versicolor', 'virginica'))
# mtcars dataset
mt_num <- select_numeric_cols(mtcars)
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