Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
39 62 77 19 31 66 42 21 69 61 46 39 20 31 55 13 41 45 40 64 25 100 56 29 43 59 27 28 51 29 48 25 64 28 34 31 21 33 27 28 32 22 44 27 17 10 143 55 17 35 72 51 67 36 44 45 34 72 25 73 34 72 42 23 16 9 57 48 53 51 79 39 61 30 22 37 2 38 33 43 43 23 44 54 39 16 40 57 27 69 34 34 34 31 13 24 19 30 22 85 27 45 41 31 24 23 51 36 24 54 39 31 39 31 38 22 62 51 49 16 68 32 33 52 62 76 41 48 63 30 78 35 45 25 44 54 74 80 42 41 34 51 42 31 39 49 53 39 54 49 34 46 42 50 37 25 30 28 45 35 28 6 73 17 37 65 28 35 50 59 61 35 44 32 20 26 58 23 21 16 20 37 35 33 41 40 35 12 45 37 37 108 68 72 9 37 27 37 58 66 21 19 78 48 27 43 30 25 69 23 13 61 43 36 39 43 56 80 40 61 74 66 41 51 29 29 55 54 43 20 55 55 27 56 25 39 57 28 36 23 24 78 37 27 61 44 39 51 12 51 81 42 25 22 19 14 45 28 51 74 19 51 73 61 14 54 62 59 26 16 36 31 42 25 31 17 55 30
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