R/ConfRatio.R

In EarthSystemDiagnostics/paleospec: Spectral tools for the ECUS group

#' @title Confidence Interval of ratios
#' @description Confidence Interval of ratios based on a ChiSquare Distribution
#' @param varratio a variance ratio
#' @param df.1 degree of freedom of denominator
#' @param df.2 degree of freedom of numerator
#' @param pval desired significance level, defaults to 0.1
#' @return lower and upper confidence intervals
#' @author Thomas Laepple
ConfRatio<-function(varratio,df.1,df.2,pval=0.1)
{
     return(varratio*qf(c(pval/2,(1-pval/2)),df1=df.1,df2=df.2))
}