R/se_rxy.R

In probstats4econ: Companion Package to Probability and Statistics for Economics and Business

Defines functions se_rxy

Documented in se_rxy

#' @rdname se_meanx
#' @export
se_rxy <- function(x, y, na.rm = FALSE) {
  if (na.rm) {
    i <- stats::complete.cases(x, y)
    x <- x[i]
    y <- y[i]
  }
  root_n <- sqrt(length(x))
  r <- stats::cor(x, y)
  (1 - r^2) / root_n
}

Try the probstats4econ package in your browser