Wessa.net

Send output to:


Data:
-8.5 -6.4 -12.9 -1.3 10.8 8.9 12.9 5.1 -3.3 8.0 8.8 17.7 18.9 17.0 8.0 -1.0 -11.6 -1.1 4.1 -0.5 8.7 8.1 4.1 4.7 -0.6 7.1 2.1 2.1 -0.7 6.9 2.6 2.6 6.1 4.4 5.8 6.5 6.6 2.7 4.9 3.1 0.2 3.3 5.2 5.6 -0.5 -0.2 5.4 4.6 5.6 3.2 -0.2 2.6 -1.9 4.6 7.3 4.2 3.5 3.5 4.2 3.7 1.9 -0.1 3.6 2.7 4.0 2.7 3.8 4.5 4.5 4.7 4.1 1.0 1.8 2.8 3.8 3.3 2.7 1.8 -0.3 -2.8 2.5 1.6 2.2 1.5 2.4

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')

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