Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-4.27791 34.7317 -8.64075 -0.328568 33.5756 -26.6184 -26.4893 -0.441997 16.539 -38.8372 63.3774 38.6653 -19.727 4.12145 -18.6939 11.4978 -12.8698 -20.219 20.4518 -18.5627 0.591859 24.5708 -14.2738 14.1122 27.5253 -6.01334 -23.3625 -29.2387 -0.95199 40.65 -7.42194 36.7659 46.5858 17.1041 17.1339 39.1 37.3241 15.8342 20.6053 -1.34888 -18.3336 5.88315 3.24557 25.6868 2.20964 2.66188 9.37267 6.82545 -26.079 5.8751 27.6959 17.8983 -19.978 -1.94792 -16.3411 1.48271 -13.1618 -1.41653 4.92832 -21.7146 11.9629 0.710745 38.4861 -50.6929 10.4626 15.283 -2.18355 -19.5889 -8.07609 11.5571 31.9772 5.16677 47.0483 -27.8685 30.1541 2.55884 68.9409 6.38428 20.7367 14.1086 21.9279 -28.4885 -22.1138 5.28836 -7.07211 10.4943 -4.05707 -15.9959 -8.49194 -18.7145 7.18354 -13.2506 27.211 -31.8653 -17.7936 -27.5299 18.209 -11.9025 -42.9355 -9.78619 0.183474 -32.8626 4.97127 -39.247 -26.6281 -24.3556 -6.59482 -29.472 -12.2773 -34.5339 2.24069 35.4566 -4.36551 7.57695 -1.74565 -12.5965 -1.74151 -26.1197 -11.7943 9.39099 -44.6021 -2.57324 -11.6591 1.26088 0.457117 -17.177 0.917461 -5.84016 24.1891 -30.9971 28.3648 -17.5735 -15.4827 -0.0896821 4.27147 18.0731 -41.8084
Confidence
(?)
Null Hypothesis
R Code
par1 <- as.numeric(par1) par2 <- as.numeric(par2) len <- length(x) df <- len - 1 sd <- sd(x) mx <- mean(x) load(file='createtable') delta2 <- abs(qt((1-par1)/2,df)) * sd / sqrt(len) delta1 <- abs(qt((1-par1),df)) * sd / sqrt(len) a<-table.start() a<-table.row.start(a) a<-table.element(a,'Hypothesis Test about the Mean - Confidence Interval',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Sample size',header=TRUE) a<-table.element(a,len) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Sample standard deviation',header=TRUE) a<-table.element(a,sd) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Confidence',header=TRUE) a<-table.element(a,par1) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Null hypothesis',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,mx) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'2-sided Confidence Interval',header=TRUE) dum <- paste('[',mx-delta2) dum <- paste(dum,',') dum <- paste(dum,mx+delta2) dum <- paste(dum,']') a<-table.element(a,dum) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Left-sided Confidence Interval',header=TRUE) dum <- paste('[',mx-delta1) dum <- paste(dum,', +inf ]') a<-table.element(a,dum) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Right-sided Confidence Interval',header=TRUE) dum <- paste('[ -inf, ',mx+delta1) dum <- paste(dum,']') a<-table.element(a,dum) 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