Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
24 17 5 17 4 11 13 21 9 0 -25 17 -5 26 15 7 10 23 14 5 7 6 6 13 15 5 17 11 10 3 23 41 6 26 14 26 20 9 16 8 -3 29 13 11 18 41 35 -1 10 8 9 16 19 13 17 6 1 13 34 12 18 15 3 14 34 18 7 18 7 3 20 27 8 13 4 -10 21 41 -6 25 21 0 34 18 17 18 23 12 19 6 6 15 12 19 10 31 -1 33 12 4 7 11 22 10 11 10 42 11 15 12 4 23 6 6 6 5 -1 40 21 13 5 1 5 4 7 13 3 9 12 13 27 11 -1 12 12 8 22 7 28 -6 16 17 12 -10 23 23 4 24 4 13 7 -21 8 8 9 6 19 4 4 30 -4 -7 -12 16 -7 26 17 11 15 -2 -3 16 21 13 -5 7 -5 11 13 2 4 21 8 37 16 23 8 19 17 14 27 4 5 7 3 19 16 8 -1 2 17 -3 24 14 17 -2 -28 -13 10 26 28 26 16 10 10 28 24 12 14 14 23 19 4 23 7 11 23 14 20 14 6 24 19 16 4 9 12 16 2 10 13 23 13 3 17 11 1 4 -2 34 7 11 6 12 21 14 19 5 5 17 18 17 38 24 7 18 15 19 13 -3 20 9 2 12 7 15 4 1 8 15 28 15 11 5 11 14 20 11 -3 12 38 28 16 9 5 30 25 15 27 19 19 5 40 22 20 24 11 7 40 19 32 3 15 12 28 1 14 11 10 25 24 22 14 22 13 20 -24 17 28 25 -1 16 5 0 13 -6 32 10 15 16 -6 14 -2 22 -5 26 16 9 17 24 22 23 10 2 12 17 8 27 12 8 15 11 15 20 17 3 20 2 25 39 13 13 9 17 16 10 16 14 8 -7 14 4 19 -6 9 9 14 24 19 11 24 22 11 14 2 24 10 -5 -8 0 7 22 9 36 13 9 3 15 10 22 -1 -5 14 18 14 7 2 26 -2 16 13 7 9 10 12 17 33 15 15 27 7 28 8 15 23 24 12 2 2 20 27 13 10 8 14 17 28 4 7 -2 5 11 26 -4 9 4 12 23 19 24 24 21 17 16 10 13 14 14 14 27 20 7 16 18 18 18 16 3 7 22 20 17 -2 15 24 4 23 4 -1 16 19 -17 0 19 18
Alternative
less
two.sided
less
greater
Confidence
Null Hypothesis
R Code
par3 <- '0' par2 <- '0.95' par1 <- 'less' 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