Coerce to an object of class lpcor

Functions to check if an object is of class lpcor

Usage

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
# }