R/cor_complete.r

#' @export
#' 
cor_complete <- function (x, y = NULL) {
    if (!any(complete.cases(data.frame(x, y)))) NA_real_
    else cor(x = x, y = y, use = "complete.obs")
}
devincaughey/CaugheyTools documentation built on May 9, 2021, 12:44 p.m.