# NOT RUN {
library(metan)
library(dplyr)
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]))
is.lpcor(lpdata)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab