R/variance.test.ksample.bartlett.fx.R

In burrm/lolcat: Miscellaneous Useful Functions

variance.test.ksample.bartlett.fx <- function(
  fx           # a formula
  ,data = NULL # a data frame
  ,alternative = c("greater", "less", "two.sided")
) {
  validate.htest.alternative(alternative = alternative)
  
  input <- summary.impl(fx = fx, data=data, stat.n = T, stat.var = T)
  
  variance.test.ksample.bartlett.simple(
    sample.sizes = input$n
    ,sample.variances = input$var
    ,alternative = alternative
  )
  
}