R/t.test.onesample.R

In burrm/lolcat: Miscellaneous Useful Functions

t.test.onesample<-function(x
                           ,null.hypothesis.mean = 0
                           ,alternative = c("two.sided","less","greater")
                           ,conf.level = 0.95
                           ,finite.population.N = NA
                           ,na.rm = T
) {
  if (na.rm) {
    x <- na.omit(x)
  }
  
  t.test.onesample.simple(sample.mean = mean(x)
                          ,sample.variance = var(x)
                          ,sample.size = length(x)
                          ,null.hypothesis.mean = null.hypothesis.mean
                          ,alternative = alternative
                          ,conf.level = conf.level
                          ,finite.population.N = finite.population.N)
}