Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
13 8 14 16 14 13 15 13 20 17 15 16 12 17 11 16 16 15 13 14 19 16 17 10 15 14 14 16 15 17 14 16 15 16 16 10 8 17 14 10 14 12 16 16 16 8 16 15 8 13 14 13 16 19 19 14 15 13 10 16 15 11 9 16 12 12 14 14 13 15 17 14 11 9 7 13 15 12 15 14 16 14 13 16 13 16 16 16 10 12 12 12 12 19 14 13 16 15 12 8 10 16 16 10 18 12 16 10 14 12 11 15 7 16 16 16 16 12 15 14 15 16 13 10 17 15 18 16 20 16 17 16 15 13 16 16 16 17 20 14 17 6 16 15 16 16 14 16 16 16 14 14 16 16 15 16 16 18 15 16 16 16 17 14 18 9 15 14 15 13 16 20 14 12 15 15 15 16 11 16 7 11 9 15 16 14 15 13 13 12 16 14 16 14 15 10 16 14 16 12 16 16 15 14 16 11 15 18 13 7 7 17 18 15 8 13 13 15 18 16 14 15 19 16 12 16 11 16 15 19 15 14 14 17 16 20 16 9 13 15 19 16 17 16 9 11 14 19 13 14 15 15 14 16 17 12 15 17 15 10 16 15 11 16 16 16 14 14 16 16 18 14 20 15 16 16 16 12 8
Alternative
two.sided
two.sided
less
greater
Confidence
Null Hypothesis
R Code
par3 <- '10.74' par2 <- '0.95' par1 <- 'two.sided' par2 <- as.numeric(par2) par3 <- as.numeric(par3) (tt <- t.test(x,mu=par3,alternative=par1,conf.level=par2)) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'One Sample t-test',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'H0',header=TRUE) a<-table.element(a,tt$null.value) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Alternative',header=TRUE) a<-table.element(a,tt$alternative) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'CI',header=TRUE) a<-table.element(a,par2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Sample Mean',header=TRUE) a<-table.element(a,mean(x)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'T-Test',header=TRUE) a<-table.element(a,tt$statistic) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'DF',header=TRUE) a<-table.element(a,tt$parameter) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'P-Value',header=TRUE) a<-table.element(a,tt$p.value) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation