Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
43623.00 72515.00 50255.00 41371.00 61818.00 60629.00 70331.00 60509.00 47507.00 49620.00 69515.00 47583.00 57574.00 49255.00 53183.00 52205.00 43740.00 45047.00 49331.00 74551.00 68563.00 49576.00 61492.00 39665.00 48173.00 47169.00 52997.00 51847.00 66779.00 72093.00 44963.00 59269.00 46868.00 57181.00 49429.00 46879.00 51243.00 53599.00 56852.00 45483.00 50957.00 45219.00 53207.00 60727.00 55176.00 65015.00 61062.00 41751.00 53357.00 58840.00
Alternative
two.sided
less
greater
Confidence
Null Hypothesis
R Code
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