Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-91.1475791030107 3190.42180503223 185.862605252137 1550.17928222182 -4051.53466892196 -4004.1469034324 -2204.90421033094 -3175.02179676197 1617.67360074152 -2295.61084112079 -2267.28881152434 -178.308096584080 -2907.55001941824 -1216.53734921381 48.5092400249178 -1514.62908371032 -1870.08923636928 1737.07276264525 1322.68307094671 1531.26030628704 3529.536136408 1083.53779125802 114.816768829857 4962.3367137392 -4410.15761457681 -705.030349962284 5667.18502395077 1692.68355190490 -385.471443157229 2226.52946084297 -2876.4779008572 1925.6448223277 -163.367556720991 -438.55153453541 3334.65989098450 982.184861050696 1029.03345213034 -513.875854018738 -2510.83330372982 -40.1510898266841 706.29012138126 2780.73665444619 -1915.73938576603 461.574896705557 -194.41601170322 -4379.00588135181 401.364395856297 -3520.92308360079 4320.31714492519 1061.20811234363 918.831327257089 -3585.968081328 5000.39576505044 -1487.92693874835 1216.74262983933 99.3537263031683 -1778.52956044609 1253.83574142802 -636.914399484525 -1370.94420414171 829.700192929427 1312.98017076556 1055.28939393764 1642.24197042200 243.858906129592 -162.001034384922 1636.89305297192 -431.237688133459
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