Coerce to an object of class lpcor

Functions to check if an object is of class lpcor, or coerce it if possible.

Usage

as.lpcor(...)

Arguments

...

A comma-separated list of matrices to be coerced to a list.

Value

An object of class lpcor.

Author

Tiago Olivoto tiagoolivoto@gmail.com

Examples

# \donttest{
library(metan)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following object is masked from 'package:metan':
#> 
#>     recode_factor
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
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
# }