Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2.1174 1.28796 1.81593 -3.18632 -3.81947 1.98546 3.87148 2.58662 0.854479 -2.36043 0.807574 -4.06769 0.0683104 1.32095 -4.41575 0.427036 1.07644 -1.3122 -1.16282 -0.855559 -3.99003 3.37186 0.24946 3.05836 0.899994 0.0246647 5.25433 2.99164 -0.712203 1.17682 -2.54567 0.955546 -1.58254 -0.639182 0.37186 -0.668997 -0.393415 2.07039 -1.30843 1.2956 -4.97534 0.710135 2.53231 0.0950621 1.98059 0.74383 1.0061 -2.94945 2.14383 1.39878 1.08053 -4.16167 0.195062 1.3541 2.79135 -0.53809 -5.23841 3.24064 -2.97889 2.35782 -1.07496 1.79414 -3.05876 5.47422 -1.31191 -1.54042 0.38284 2.00604 4.08316 1.35055 1.90764 0.76191 -1.7378 3.83247 1.66207 2.18022 1.68278 2.5878 -0.73809 -2.76769 -0.493958 2.6174 0.313685 -6.10696 -0.345608 1.24335 0.85093 0.302492 -2.17882 2.39151 2.06831 -5.25789 -0.707499 -1.97645 -2.95409 -1.58632 -3.0354 0.878199 2.80658 -2.96026 0.123573 -0.167693 -2.43175 -1.17179 2.67978 -2.2939 2.93631 -5.97534 -4.3986 -1.47162 0.987797 0.162075
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation