Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
50 68 62 54 71 54 65 73 52 84 42 66 65 78 73 75 66 70 81 71 69 71 72 68 70 67 76 70 60 77 72 69 71 62 70 58 76 52 59 68 76 67 59 76 60 63 70 66 64 70 75 61 60 73 61 66 59 64 66 78 53 67 66 71 51 56 67 69 55 63 67 65 47 76 64 68 64 65 63 60 68 72 70 61 61 62 71 71 51 70 73 76 59 68 48 52 59 60 59 57 79 60 60 59 61 71 58 59 58 60 55 62 69 68 72 19 68 79 71 71 74 75 53 50 70 78 59 72 70 63 74 67 66 62 73 67 61 74 32 69 60 57 60 68 68 73 69 65 81 55 69 48 69 68 74 67 65 63 74 39 68 69 63 70 68 70 78 59 62 75 74 73 62 69 67 73 52 61 53 63 78 65 77 69 68 76 63 41 76 67 69 73 63 78 56 56 64 68 75 55 66 75 77 61 71 72 66 66 63 60 64 74 71 69 77 70 77 68 65 69 50 72 64 76 79 55 62 69 68 75 64 63 67 58 71 79 53 57 67 58 74 62 54 62 64 66 66 63 66 78 84 67 58 75 55 72 54 58 67 77 72 52 76 72 77 64 71 73 75 58 51 75 71
Confidence
(?)
Null Hypothesis
R Code
par2 <- '60,53' par1 <- '0.95' 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