R/one_parci.R

In quickpsy: Fits Psychometric Functions for Multiple Groups

#' Calculates the confidence intervals for one condition
#' \code{one_parci} calculates the confidence intervals for one condition
#' @keywords internal
#' @export
one_parci <- function(d, ci) {
    parinf <- quantile(d$par, .5*(1 - ci))[[1]]
    parsup <- quantile(d$par, 1 - .5*(1 - ci))[[1]]
  data.frame(parinf, parsup)
}