Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
15.25 11.7 18.55 9.5 14.75 10.9 10.4 12.4 12.6 11.9 14.3 11.7 12.6 15.6 14.35 6.4 10.0 11.8 12.6 13.6 6.4 11.5 8.3 12.7 13.0 13.6 14.8 14.35 19.1 9.85 15.6 17.1 13.6 14.5 9.9 13.6 17.6 7.4 6.3 13.8 9.7 13.3 11.1 13.35 18.4 17.75 8.2 12.0 11.7 10.9 15.9 9.2 13.0 11.4 10.6 16.15 14.75 12.45 12.65 16.1 16.85 17.1 19.3 19.05 13.35 11.95 14.8 10.6 11.9 13.2 16.2 17.75 17.65 13.35 7.6 12.75 19.1 12.85 14.05 12.9 11.1 9.3 10.8 10.3 7.6 18.1 8.6 12.2 12.8 13.3 11.4 9.3 12.7 18.4 16.1 7.7 6.7 13.8 9.9 10.8 5.9 11.4 11.3 12.5 4.35 19.1 16.1 14.7 17.35 17.65 16.35 15.6 16.1 19.25 15.25 18.15 18.4 17.75 14.6
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation