Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.6506 1.15551 1.55482 -3.25307 -4.06148 1.95485 4.42346 2.30229 1.02699 -2.82034 0.714873 -3.92232 0.24403 1.24926 -3.92459 0.43454 0.83353 -1.21774 -1.04541 -0.769104 -4.09749 3.25311 0.465475 2.80024 1.33638 0.0567384 5.65772 2.83515 -0.797976 1.29735 -2.27458 0.853744 -1.58139 -0.917095 0.420834 -0.476715 -0.0341333 1.90542 -1.52891 1.79671 -5.37515 0.547101 3.20515 0.281815 2.07064 0.924129 0.81689 -3.00303 2.28106 1.35914 1.22084 -3.90529 0.0603386 1.48272 2.63826 -0.610394 -4.5139 2.74773 -3.18339 2.26105 -1.09306 1.7668 -2.81453 5.33161 -1.17033 -1.88937 0.321504 1.95976 4.1192 1.24118 1.77521 0.584224 -1.76636 3.41311 2.14225 2.31872 1.30075 2.5884 -0.483122 -2.69616 -0.537822 2.76245 0.405523 -6.00306 -0.206414 1.25558 0.820094 0.677707 -2.31622 2.26417 2.37204 -5.22957 -0.903783 -1.96104 -3.15728 -1.54407 -3.16412 0.628513 2.4166 -2.87037 0.24501 -0.0218313 -2.72109 -1.21738 2.84222 -2.19148 2.72511 -5.77146 -4.35028 -1.66352 0.942208 -0.283203 NA
Alternative
two.sided
two.sided
less
greater
Confidence
Null Hypothesis
R Code
par3 <- '20' 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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation