how to sovle this in R program? id chol stab.glu hdl ratio location age gender h

Question

how to sovle this in R program?

id chol stab.glu hdl ratio location age gender height weight frame 1000 203 82 56 3.6 Buckingham 46 female 62 121 medium 1001 165 97 24 6.9 Buckingham 29 female 64 218 large 1002 228 92 37 6.2 Buckingham 58 female 61 256 large 1003 78 93 12 6.5 Buckingham 67 male 67 119 large 1005 249 90 28 8.9 Buckingham 64 male 68 183 medium 1008 248 94 69 3.6 Buckingham 34 male 71 190 large 1011 195 92 41 4.8 Buckingham 30 male 69 191 medium 1015 227 75 44 5.2 Buckingham 37 male 59 170 medium 1016 177 87 49 3.6 Buckingham 45 male 69 166 large 1022 263 89 40 6.6 Buckingham 55 female 63 202 small 1024 242 82 54 4.5 Louisa 60 female 65 156 medium 1029 215 128 34 6.3 Louisa 38 female 58 195 medium 1030 238 75 36 6.6 Louisa 27 female 60 170 medium 1031 183 79 46 4 Louisa 40 female 59 165 medium 1035 191 76 30 6.4 Louisa 36 male 69 183 medium 1036 213 83 47 4.5 Louisa 33 female 65 157 medium 1037 255 78 38 6.7 Louisa 50 female 65 183 medium 1041 230 112 64 3.6 Louisa 20 male 67 159 medium 1045 194 81 36 5.4 Louisa 36 male 64 126 medium 1250 196 206 41 4.8 Buckingham 62 female 65 196 large 1252 186 97 50 3.7 Buckingham 70 male 67 178 large 1253 234 65 76 3.1 Buckingham 47 male 67 230 large 1254 203 299 43 4.7 Buckingham 38 female 69 288 large 1256 281 92 41 6.9 Buckingham 66 female 62 185 large 1271 228 66 45 5.1 Buckingham 24 female 61 113 medium 1277 179 80 92 1.9 Buckingham 41 female 72 118 small 1280 232 87 30 7.7 Buckingham 37 male 68 252 large 1281 128 74 99 3.6 Buckingham 48 male 68 100 small 1282 254 84 52 4.9 Buckingham 43 female 62 145 medium 1285 215 72 42 5.1 Louisa 40 male 70 189 medium 1301 177 101 36 4.9 Buckingham 42 female 65 174 medium 1303 182 85 43 4.2 Buckingham 52 male 68 139 large 1304 265 330 34 7.8 Buckingham 61 male 74 191 medium 1305 182 85 37 4.9 Buckingham 61 female 69 174 medium 1309 199 87 63 3.2 Buckingham 25 male 66 118 medium 1312 183 81 60 3.1 Buckingham 47 female 66 186 medium 1313 194 86 67 2.9 Buckingham 35 male 66 159 medium 1314 190 107 32 5.9 Buckingham 46 male 72 205 medium 1315 173 80 57 3 Buckingham 57 male 71 145 medium 1316 182 206 43 4.2 Buckingham 70 male 69 214 large 1317 136 81 51 2.7 Buckingham 22 female 66 160 large 1321 218 68 46 4.7 Buckingham 52 female 62 170 medium 1323 225 83 42 5.4 Buckingham 36 male 67 192 large 1326 262 84 38 6.9 Buckingham 43 male 75 253 large 1500 213 76 40 5.3 Buckingham 72 female 59 137 large 1501 243 52 59 4.1 Buckingham 37 female 64 233 medium 1502 148 193 14 10.6 Buckingham 54 female 67 165 medium 2004 128 223 24 5.3 Buckingham 60 male 67 196 medium 2750 169 85 51 3.3 Buckingham 40 female 65 180 medium 2753 157 74 47 3.3 Buckingham 55 female 66 219 medium 2754 196 82 58 3.4 Buckingham 76 male 65 154 small 2756 237 87 41 5.8 Buckingham 43 female 64 181 medium 2757 212 97 45 4.7 Buckingham 65 female 61 187 large 2758 233 92 39 6 Buckingham 45 female 64 167 large 2762 289 111 50 5.8 Buckingham 70 female 60 220 medium 2763 193 106 63 3.1 Buckingham 20 female 68 274 small 2765 204 128 61 3.3 Buckingham 62 male 68 180 large 2770 165 94 69 2.4 Buckingham 92 female 62 217 large 2773 237 233 58 4.1 Buckingham 49 female 62 189 large 2774 218 88 39 5.6 Buckingham 44 female 66 191 large 2775 296 262 60 4.9 Buckingham 74 female 63 183 large 2777 178 78 59 3 Buckingham 36 male 70 161 medium 2778 443 185 23 19.3 Buckingham 51 female 70 235 medium 2780 145 85 29 5 Buckingham 38 female 63 125 large 2784 234 80 63 3.7 Buckingham 31 male 70 165 medium 2785 146 77 60 2.4 Buckingham 28 female 64 126 small 2787 223 75 85 2.6 Buckingham 22 female 62 137 medium 2791 213 203 75 2.8 Buckingham 71 female 63 165 medium 2793 173 131 69 2.5 Buckingham 76 female 61 102 medium 2794 232 184 114 2 Buckingham 91 female 61 127 small 2795 171 92 54 3.2 Buckingham 40 male 71 214 medium 3250 164 86 40 4.1 Buckingham 23 female 69 245 large 3750 170 69 64 2.7 Buckingham 20 female 64 161 medium 3751 180 84 69 2.6 Buckingham 40 female 68 264 medium 3752 204 57 74 2.8 Buckingham 52 male 75 142 small 4000 209 113 65 3.2 Buckingham 76 female 60 143 large 4500 242 108 53 4.6 Buckingham 46 female 62 183 medium 4501 134 105 42 3.2 Buckingham 48 male 70 173 large 4506 217 81 60 3.6 Buckingham 22 female 71 223 medium 4515 251 94 36 7 Buckingham 58 female 63 154 large 4517 217 88 40 5.4 Buckingham 34 male 73 219 medium 4750 300 103 44 6.8 Louisa 61 female 67 169 small 4751 218 87 38 5.7 Louisa 40 male 73 200 small 4753 189 96 47 4 Louisa 28 female 64 200 medium 4758 185 84 52 3.6 Louisa 53 female 61 145 medium 4759 206 85 46 4.5 Louisa 67 male 67 178 large 4760 218 182 54 4 Louisa 51 female 63 215 large 4761 189 75 72 2.6 Louisa 49 female 62 205 medium 4763 229 95 74 3.1 Louisa 65 female 62 151 medium 4767 228 76 53 4.3 Louisa 54 male 66 170 large 4770 159 88 43 3.7 Louisa 38 male 68 169 large 4771 249 197 44 5.7 Louisa 64 female 63 159 medium 4772 170 106 42 4 Louisa 41 female 61 110 small 4776 174 125 44 4 Louisa 67 male 68 198 large 4780 204 62 70 2.9 Louisa 27 female 67 185 medium 4783 203 84 75 2.7 Louisa 21 female 63 142 medium 4786 241 86 63 3.8 Louisa 41 female 59 139 medium 4787 245 120 39 6.3 Louisa 47 female 63 156 medium 4789 143 91 37 3.9 Louisa 61 female 65 220 large 4790 224 341 33 6.8 Louisa 65 male 67 197 medium 4792 168 69 45 3.7 Louisa 28 female 63 200 large 4793 184 79 39 4.7 Louisa 41 male 69 154 large 4794 199 130 48 4.1 Louisa 37 female 61 203 large 4795 158 91 48 3.3 Louisa 50 male 71 180 medium 4796 209 176 55 3.8 Louisa 57 female 61 150 small 4801 214 111 59 3.6 Louisa 28 male 68 204 medium 4802 293 85 94 3.1 Louisa 31 female 67 200 medium 4803 227 105 44 5.2 Louisa 83 female 59 125 medium 4805 292 235 55 5.3 Buckingham 79 male 70 165 small 4808 218 80 71 3.1 Buckingham 68 male 70 170 large 4813 244 101 36 6.8 Buckingham 32 male 70 212 small 4818 283 83 74 3.8 Louisa 26 male 72 227 large 4821 186 74 76 2.4 Louisa 36 male 69 150 small 4822 273 94 49 5.6 Louisa 53 female 64 174 medium 4823 193 77 49 3.9 Louisa 19 female 61 119 small 4825 194 80 34 5.7 Buckingham 63 male 73 175 medium 4826 231 105 61 3.8 Buckingham 58 female 63 230 large 4827 217 78 48 4.5 Buckingham 53 female 63 158 medium 4833 174 173 34 5.1 Buckingham 50 male 70 263 large 4835 225 84 82 2.7 Buckingham 41 male 71 156 small 4840 268 85 51 5.3 Louisa 48 male 70 120 small 4841 195 108 46 4.2 Louisa 59 female 67 172 small 4842 179 70 52 3.4 Louisa 34 male 72 170 medium 4843 215 119 44 3.9 Louisa 63 female 63 158 medium 10000 185 76 58 3.2 Buckingham 23 male 76 164 small 10001 132 99 34 3.9 Buckingham 21 female 65 169 large 10012 175 91 42 4.2 Louisa 23 female 65 235 medium 10014 179 81 35 5.1 Buckingham 36 female 63 125 medium 10016 228 115 61 3.7 Buckingham 71 female 63 244 large 10020 181 177 24 7.5 Buckingham 64 male 71 225 large 12002 160 100 36 4.4 Louisa 43 female 64 140 small 12004 188 77 45 4.2 Louisa 31 female 67 227 medium 12005 168 101 59 2.8 Louisa 44 female 64 160 small 12006 318 270 108 2.9 Louisa 60 female 65 167 medium 12501 192 109 44 4.4 Buckingham 43 female 64 325 large 12502 209 87 34 6.1 Buckingham 48 female 63 121 small 12506 129 110 42 3.1 Buckingham 56 male 74 151 small 12507 160 122 41 3.9 Buckingham 55 female 67 223 medium 12509 160 196 33 4.8 Buckingham 49 male 71 266 large 12751 211 48 34 6.2 Louisa 58 male 67 177 medium 12754 262 93 43 6.1 Louisa 33 female 63 170 medium 12760 201 81 87 2.3 Buckingham 48 female 68 146 small 12761 263 82 92 2.9 Buckingham 66 female 66 121 small 12763 219 112 73 3 Buckingham 59 male 66 170 medium 12765 191 83 88 2.2 Buckingham 45 female 67 151 small 12766 171 97 69 2.5 Buckingham 52 male 71 159 small 12768 219 112 73 3 Buckingham 76 male 64 105 medium 12769 347 197 42 8.3 Buckingham 36 male 70 277 large 12772 269 73 34 7.9 Buckingham 41 female 62 160 medium 12778 164 71 63 2.6 Buckingham 20 male 72 145 small 13250 181 255 26 7 Buckingham 50 male 71 320 large 13254 190 84 44 4.3 Buckingham 43 female 62 163 large 13500 255 112 34 7.5 Louisa 82 male 66 163 small 13501 218 126 32 6.8 Louisa 35 male 69 169 medium 13503 223 90 48 4.6 Buckingham 47 female 65 232 large 13505 254 342 37 6.9 Buckingham 75 male 68 210 large 14756 236 102 36 6.6 Buckingham 62 male 76 160 large 14758 176 92 55 3.2 Buckingham 31 female 62 145 small 15007 158 91 31 5.1 Louisa 50 male 70 215 large 15008 181 83 44 4.1 Louisa 39 female 66 255 medium 15010 151 85 48 3.1 Louisa 33 male 69 308 large 15012 115 239 36 3.2 Louisa 58 male 69 177 medium 15013 271 121 40 6.8 Louisa 81 female 64 158 medium 15016 190 92 44 4.3 Louisa 27 female 65 210 medium 15017 118 95 39 3 Louisa 47 female 64 123 small 15250 168 82 44 3.8 Buckingham 33 female 66 118 small 15252 254 121 39 6.5 Buckingham 67 male 68 167 large 15260 193 77 45 4.3 Buckingham 42 female 75 186 medium 15264 187 84 64 2.9 Buckingham 21 female 63 158 small 15271 212 79 49 4.3 Buckingham 51 female 65 145 small 15274 170 76 60 2.8 Buckingham 27 female 63 119 small 15276 215 110 36 6 Louisa 51 female 67 282 medium 15277 199 85 59 3.4 Louisa 71 male 69 171 large 15278 140 385 31 4.5 Louisa 50 male 69 172 large 15279 216 79 46 4.7 Louisa 54 female 65 138 small 15500 204 113 35 5.8 Buckingham 59 male 73 187 medium 15501 193 248 24 8 Buckingham 59 female 66 189 medium 15502 267 133 34 7.9 Louisa 40 female 59 204 small 15512 201 106 53 3.8 Louisa 58 male 66 215 large 15513 204 120 44 4.6 Louisa 72 male 65 167 large 15514 246 104 62 4 Louisa 66 female 66 189 medium 15515 229 91 43 5.3 Louisa 23 male 72 180 small 15516 172 101 46 3.7 Louisa 42 female 65 165 small 15517 197 120 37 5.3 Louisa 43 male 71 179 medium 15518 205 79 32 6.4 Louisa 75 male 69 204 large 15519 219 106 50 4.4 Louisa 65 female 63 233 large 15520 174 90 36 4.8 Louisa 34 male 71 210 medium 15521 192 89 30 6.4 Louisa 37 male 71 195 medium 15522 206 94 44 4.7 Louisa 61 female 63 199 medium 15527 160 71 44 3.6 Louisa 36 female 64 185 medium 15529 216 109 86 2.5 Louisa 45 female 67 147 medium 15540 236 111 82 2.9 Louisa 68 female 61 119 small 15542 205 88 41 5 Louisa 57 male 66 171 medium 15545 206 112 33 6.2 Louisa 41 female 62 184 small 15546 143 371 46 3.1 Louisa 68 male 67 158 small 15757 173 83 37 4.7 Buckingham 40 female 63 130 small 15758 235 91 37 6.4 Buckingham 79 female 65 134 small 15760 169 95 29 5.8 Buckingham 62 male 66 251 large 15761 283 145 39 7.3 Buckingham 63 female 61 200 medium 15762 174 93 77 2.3 Buckingham 55 male 70 140 medium 15763 271 103 90 3 Buckingham 55 female 63 114 small 15766 203 94 62 3.3 Buckingham 27 female 67 209 medium 15773 188 174 24 7.8 Louisa 66 male 68 210 large 15777 293 87 120 2.4 Louisa 63 female 64 179 medium 15779 215 80 100 2.2 Louisa 78 male 65 109 small 3. ,, randomny picks a chol value, wrhat is tho probabwtV?? goton.1 o value less than the average of chol?

Explanation / Answer

### At first you have to save data using .csv file in your pc.

then using the following comand:

data=read.csv(file.choose()) ### to attach the data.

x=data$chol ### to extract vector chol.
x

output:

> x=data$chol
> x
[1] 203 165 228 78 249 248 195 227 177 263 242 215 238 183 191 213 255 230
[19] 194 196 186 234 203 281 228 179 232 128 254 215 177 182 265 182 199 183
[37] 194 190 173 182 136 218 225 262 213 243 148 128 169 157 196 237 212 233
[55] 289 193 204 165 237 218 296 178 443 145 234 146 223 213 173 232 171 164
[73] 170 180 204 209 242 134 217 251 217 300 218 189 185 206 218 189 229 228
[91] 159 249 170 174 204 203 241 245 143 224 168 184 199 158 209 214 293 227
[109] 292 218 244 283 186 273 193 194 231 217 174 225 268 195 179 215 185 132
[127] 175 179 228 181 160 188 168 318 192 209 129 160 160 211 262 201 263 219
[145] 191 171 219 347 269 164 181 190 255 218 223 254 236 176 158 181 151 115
[163] 271 190 118 168 254 193 187 212 170 215 199 140 216 204 193 267 201 204
[181] 246 229 172 197 205 219 174 192 206 160 216 236 205 206 143 173 235 169
[199] 283 174 271 203 188 293 215

length(x) ### to find the length of the vector chol

mean(x) ### to find the mean of the variable chol

output:

> length(x)
[1] 205
> mean(x)
[1] 206.9561

now no of elements in the chol vector which are less than mean value is given by:

y=x[x<mean(x)] ### to find x which value are less than mean value=206.95
length(y) ### to find the no of elements which are less than mean

output:

> y
[1] 203 165 78 195 177 183 191 194 196 186 203 179 128 177 182 182 199 183
[19] 194 190 173 182 136 148 128 169 157 196 193 204 165 178 145 146 173 171
[37] 164 170 180 204 134 189 185 206 189 159 170 174 204 203 143 168 184 199
[55] 158 186 193 194 174 195 179 185 132 175 179 181 160 188 168 192 129 160
[73] 160 201 191 171 164 181 190 176 158 181 151 115 190 118 168 193 187 170
[91] 199 140 204 193 201 204 172 197 205 174 192 206 160 205 206 143 173 169
[109] 174 203 188
> length(y)
[1] 111

3.) now question is if we select a chol value randomly then probability of getting the value is less than mean value = (no of chol value less than mean value) / (total no of chol value)= 111/205=0.54

r=length(y)/length(x) ### to calculate probability
r

output:

> r=length(y)/length(x)
> r
[1] 0.5414634

Related Questions

Navigate

• Browse (All)
• Browse H
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.