variability.test.twosample.independent.ADA.simple<-function(
sample.mean.ADA.g1 = 0
,sample.variance.ADA.g1 = 1
,sample.size.g1 = 10
,sample.mean.ADA.g2 = 2
,sample.variance.ADA.g2 = 1
,sample.size.g2 = 10
,null.hypothesis.difference = 0
,alternative = c("two.sided","less","greater") #difference in means only
,conf.level = 0.95
,g1.details = F #Include point estimates and confidence intervals for mean, variance, and sd
,g2.details = F #Include point estimates and confidence intervals for mean, variance, and sd
#,details.include = c("mean", "mean.ci", "var") #,"var.ci" ,"sd", "sd.ci"
,t.test.impl = mean.t.test.twosample.independent.equal.variance.simple
) {
validate.htest.alternative(alternative)
retval <- t.test.impl(
sample.mean.g1 = sample.mean.ADA.g1
,sample.variance.g1 = sample.variance.ADA.g1
,sample.size.g1 = sample.size.g1
,sample.mean.g2 = sample.mean.ADA.g2
,sample.variance.g2 = sample.variance.ADA.g2
,sample.size.g2 = sample.size.g2
,null.hypothesis.difference = null.hypothesis.difference
,alternative = alternative
,conf.level = conf.level
,g1.details = g1.details
,g2.details = g2.details
)
retval$method <- "Two-Sample t Test For Average Mean Absolute Deviation"
names(retval$null.value) <- "mean ADA difference"
names(retval$parameter) <- "null hypothesis mean ADA difference"
retval
}
variability.test.twosample.independent.levene.simple <- variability.test.twosample.independent.ADA.simple
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.