Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
683925 676450.8 669226.8 662806.2 657563.4 651912 642740.8 632673.4 621432 609464.2 597556 586183.8 574772.8 562856.4 550915.2 538725 521945.2 504850.8 487568 470208.6 452962 443340 433664 423808 413826 404178 394480 384930 376276 367706 358826.4 352158.4 345548 338839.2 331791.68 324377.6 318929.8 313574.8 308130.6 302689.6 297308 294208.2 291390.6 288455.028 285538.7047 282923.55 282685.2744 282643.62 282702.6312 282745.4264
Alternative
two.sided
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