Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
139 158 105 54 91 163 137 153 188 150 94 156 131 111 109 83 138 96 99 202 66 214 177 126 76 99 108 74 110 116 87 97 106 91 133 74 98 126 86 100 94 52 98 118 99 149 148 128 224 159 159 167 165 159 119 176 124 121 148 221 149 244 148 92 153 132 161 105 97 151 166 157 145 162 163 59 187 90 105 116 42 148 155 125 116 128 49 164 162 186 183 188 104 139 162 159 96 127 80 74 114 140 95 121 98 95 110 70 102 130 96 102 68 159 147 39 114 117 149 145 120 109 132 172 114 68 115 78 118 87 2 49 96 82 100 141 146 90 121 155 147 108 113 115 61 77 73 89 78 110 220 117 122 44 101 77 154 103 175 143 49 110 56 137 86 168 140 88 145 63 102 119 132 94 166 64 104 105 95 63 109 117 73 108 105 119 31 48 50 150 154 109 194 158 67 100 111 138 101 131 101 114 165 111 75 82 121 32 150 71 165 154 126 169 156 172 89 167 113 173 162 122 100 115 165 165 110 118 158 49 104 110 60 109 68 111 151 65 141 63 52 131 42 152 107 96 57 112 131 167 121 149 168 94 51 48 66 85 109 162 86 114 164 126 142 83 81 110 93 49 88 102 99 76 57 120 91 117
Confidence
(?)
Null Hypothesis
R Code
par2 <- '12' 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