Functions to check if an object is of class lpcor

is.lpcor(x)

Arguments

x

An object to check.

Value

A logical value TRUE or FALSE.

Examples

# \donttest{ 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)
#> [1] TRUE
# }