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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.