Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3.9 1.7 1.8 -4.1 -3.8 -0.9 4.3 1.3 -3.4 -2.8 0.9 -4.6 -0.4 -1.5 -3.2 1.3 -0.6 -1.7 -1.9 0.5 -4.1 -3.7 0.3 2.3 0.2 -0.1 -1.4 3.9 0.4 2 -1.2 1.2 -1.9 -1 -6.3 -0.7 -2.2 1.4 0.7 -4.7 0.3 -4.1 -1.1 1.5 1.8 2.8 -1.7 1.8 -5.1 4.7 1.3 1.1 -2.3 1.9 2.6 1.3 0.6 -4.3 3.8 -0.5 3.8 -1.2 0.5 -1.4 4.4 -1.3 -0.9 -2.9 3 1 1.7 -2.2 1.4 -0.2 1.6 -5.2 2.1 1.5 1.6 3.2 -1.1 -2.8 0 3.9 0.9 -4.2 -0.7 0.8 -0.3 -0.6 -1.9 3.7 4.1 -3.4 2.4 -0.7 -1.8 0.5 -2.2 1.9 4.6 -4.1 1.7 0.8 -0.7 -0.9 4.7 -2.5 3.5 -3.6 -2.1 0.6 2.1 2.1 -0.65 7.7 -1.9 -2.15 1.6 2.6 -2.9 -0.9 -3.9 3.35 -1.6 9.7 -4.4 -2.4 -3.8 -1.4 -1.1 -0.9 -0.5 -3.85 -0.25 -0.2 2.45 2.65 2.35 3.6 -1.6 1.1 1.6 -2.25 -4.75 -2.35 -4.4 -3.65 -2.35 -1.4 -8.3 -0.65 -5.25 -1.75 -10.1 1 -1.75 -3.15 4.6 3.85 -1.05 0.6 -0.15 1.75 3.45 5.9 -2.9 11.1 -0.1 5.95 -1.55 0.1 0 1.35 0.95 3.1 -5.4 -4.6 -4.6 2.6 -1.65 -0.9 -4.65 2.6 3.4 -1.1 -0.9 0.25 -7.1 1.1 2.35 -1.85 -2.85 7.6 5.35 0.4 -0.4 3.2 3.6 4.85 -5.25 4.1 4.9 1.25 -0.75 3.6 -6.4 0.65 -7.25 4.6 4.85 7.65 6.9 -0.8 1.6 6.2 -4.75 -3.1 3.2 -3.65 -2.6 0.85 -5.65 -1.85 6.15 0.65 -2.25 2.65 -2.65 -4.4 -0.7 10.2 -2.9 5.6 3.4 -0.95 -1.45 -0.9 3.1 -7.15 -0.5 -0.5 6.85 -6.4 1.7 2.4 -1.65 1.4 -0.1 -0.1 -2.25 1.2 -0.4 -2.4 -0.95 -3.9 -6.65 -8.15 1.95 4.75 5.15 -6.8 1.85 -2.15 -2.3 -2.4 -7.15 5.95 2.35 -0.05 -0.1 1.65 3.4 3.95 0.7 1.85 5.95 0.35 2.2 5.1 2.75 0.2 -0.4 1.65 3.1
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