Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
26 NA 37 NA NA NA 52 NA NA NA NA NA NA 58 68 62 NA 56 NA 74 NA NA 58 NA NA NA NA 51 NA 53 29 54 NA NA NA NA 54 NA NA 47 NA NA NA NA NA 68 NA NA 67 NA NA NA NA NA NA NA 41 NA 45 NA NA 56 41 NA 53 NA 66 NA NA 37 51 51 56 NA 37 42 NA 66 34 NA 49 55 49 NA 40 NA NA 63 56 54 NA NA NA 32 NA 67 NA NA NA NA NA 66 NA NA NA 51 55 50 60 56 63 NA NA NA NA NA 52 NA NA 59 NA 52 44 NA NA NA NA NA NA NA NA 60 NA NA NA NA NA NA 59 NA NA NA NA NA 55 41 NA 52 50 NA 60 NA NA 29 NA NA NA 55 64 40 46 NA 43 NA 51 NA 52 NA 66 61 NA 51 NA NA NA NA NA 25 NA 46 50 39 NA 58 NA 58 60 62 63 NA NA NA NA 64 38 NA 48 48 47 66 NA NA 58 44 NA 43 NA NA 45 NA NA NA 60 55 56 NA NA NA NA 51 58 64 NA NA 51 47 59 NA NA 51 64 52 NA NA NA NA 56 NA NA NA 71 50 NA 47 NA NA 43 NA 63 NA NA 51 NA 22 NA 59 NA 66 53 NA NA 54 NA NA 53 NA 36 76 NA NA 59 NA 55 58 NA 44 57
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