R/f_val_bs_CI_endpoints.R

In erikerhardt/isogasex: Isotopic gas exchange using TDL and Licor input. Updated version of package tdllicor

#' create CI endpoints
#'
#' Sorts BS samples, takes quantiles for equal-tailed sig_CI Level CIs.
#'
#' @param x xxxPARAMxxx
#' @param n xxxPARAMxxx
#' @param ind_CI xxxPARAMxxx
#'
#' @return x_CI xxxRETURNxxx
#'
f_val_bs_CI_endpoints <-
function# create CI endpoints
###
(x
###
, n
###
, ind_CI
###
)
{
  ##details<<
  ## Sorts BS samples, takes quantiles for equal-tailed sig_CI Level CIs.

  x_CI <- matrix(0,nrow=n,ncol=2);
  for (i_n in 1:n) {
    x_CI[i_n,] <- sort(x[i_n,])[ind_CI];
  }

  return(x_CI);
  ### x_CI
}