R/t_dist_one_tailed.R

In experiences: Experience Research

#' T distribution - one-tailed
#'
#' @param t_score t value
#' @param degrees_of_freedom degrees of freedom
#' @importFrom stats pt
#' @return value

t_dist_one_tailed <- function(t_score, degrees_of_freedom) {
  pt(-abs(t_score), degrees_of_freedom)
}