Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
76 119 91 125 131 143 134 126 155 129 112 129 99 114 124 123 135 143 116 108 126 116 113 139 101 110 115 116 115 109 132 102 115 128 121 99 141 124 127 97 138 142 114 114 123 126 118 132 109 122 117 91 128 130 114 123 89 110 112 109 139 88 126 121 106 109 101 99 125 127 129 113 87 115 108 97 130 120 125 131 129 130 93 120 110 111 130 126 114 112 118 134 133 131 93 116 136 142 121 110 122 118 130 114 129 140 134 105 100 131 120 82 125 147 125 128 118 87 156 133 125 127 99 128 126 121 53 121 117 129 100 122 107 117 110 114 118 108 116 131 106 132 124 114 135 106 113 119 130 124 121 122 112 115 120 116 141 137 128 91 124 112 113 137 103 121 123 126 108 129 101 115 138 140 125 106 135 133 146 109 127 128 147 118 111 138 114 137 118 140 145 130 116 109 139 109 124 117 106 130 127 120 126 161 118 139 118 129 128 140 128 128 133 108 142 121 128
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