R/is.lpcorr.R

In metan: Multi Environment Trials Analysis

#' Coerce to an object of class lpcor
#' @description
#' `r badge('stable')`
#'
#' Functions to check if an object is of class `lpcor`
#'
#'
#' @param x An object to check.
#' @importFrom methods is
#' @export
#' @return  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)
#'}
#'
is.lpcor <- function(x){
  return((class(x) %in% c("lpcor", "lpcor_group")))
}