R/variance.test.onesample.R

In burrm/lolcat: Miscellaneous Useful Functions

variance.test.onesample<-function(g1
                                  ,null.hypothesis.variance = 1
                                  ,alternative = c("two.sided","less","greater")
                                  ,conf.level = 0.95) {
  validate.htest.alternative(alternative = alternative)
  
  g1 <- na.omit(g1)
  sample.variance <- var(g1)
  sample.size <- length(g1)
  
  variance.test.onesample.simple(sample.variance
                                 ,sample.size
                                 ,null.hypothesis.variance = null.hypothesis.variance
                                 ,alternative = alternative
                                 ,conf.level = conf.level)
  
}