R/attenuate.d.R

In Matherion/ufs: Quantitative Analysis Made Accessible

#' Attenuate a Cohen's d estimate for unreliability in the continuous variable
#'
#' @param d The (disattenuated) value of Cohen's d
#' @param reliability The reliability of the measurements of the continuous variable
#'
#' @return The attenuated value of Cohen's d
#' @export
#'
#' @examples
#' attenuate.d(.5, .8);
attenuate.d <- function(d, reliability) {
  return(d * sqrt(reliability));
}