library("MASS")
GAGurine
## Age GAG
## 1 0.00 23.0
## 2 0.00 23.8
## 3 0.00 16.9
## 4 0.00 18.6
## 5 0.01 17.9
## 6 0.01 25.9
## 7 0.01 16.5
## 8 0.01 26.3
## 9 0.01 26.9
## 10 0.01 17.9
## 11 0.01 29.1
## 12 0.02 32.6
## 13 0.02 41.9
## 14 0.03 38.7
## 15 0.03 37.6
## 16 0.03 46.4
## 17 0.04 30.5
## 18 0.04 34.8
## 19 0.04 26.7
## 20 0.05 33.0
## 21 0.05 56.3
## 22 0.05 33.5
## 23 0.05 29.7
## 24 0.05 32.8
## 25 0.05 27.6
## 26 0.06 31.9
## 27 0.07 55.4
## 28 0.10 33.3
## 29 0.10 36.4
## 30 0.14 25.9
## 31 0.14 21.6
## 32 0.15 26.0
## 33 0.17 12.8
## 34 0.18 34.2
## 35 0.23 19.4
## 36 0.24 21.9
## 37 0.24 19.3
## 38 0.25 26.2
## 39 0.27 9.6
## 40 0.28 36.1
## 41 0.29 19.7
## 42 0.29 19.2
## 43 0.30 20.4
## 44 0.33 23.1
## 45 0.33 23.8
## 46 0.40 21.6
## 47 0.41 25.4
## 48 0.45 18.4
## 49 0.46 18.6
## 50 0.47 26.4
## 51 0.50 25.7
## 52 0.50 20.4
## 53 0.53 15.9
## 54 0.55 20.8
## 55 0.56 20.9
## 56 0.56 15.7
## 57 0.57 20.4
## 58 0.58 14.1
## 59 0.59 21.4
## 60 0.59 15.6
## 61 0.62 30.5
## 62 0.64 15.4
## 63 0.65 19.2
## 64 0.65 22.6
## 65 0.69 15.2
## 66 0.71 14.9
## 67 0.75 39.5
## 68 0.80 17.3
## 69 0.80 17.2
## 70 0.82 13.8
## 71 0.83 17.7
## 72 0.84 15.6
## 73 0.85 20.4
## 74 0.86 14.8
## 75 0.86 19.5
## 76 0.87 18.0
## 77 0.89 22.5
## 78 0.94 20.4
## 79 0.96 13.1
## 80 0.97 17.4
## 81 0.98 18.9
## 82 0.99 16.1
## 83 1.02 21.9
## 84 1.03 18.4
## 85 1.03 15.2
## 86 1.05 19.1
## 87 1.07 15.1
## 88 1.07 17.2
## 89 1.07 18.4
## 90 1.08 24.1
## 91 1.15 19.0
## 92 1.23 16.0
## 93 1.24 21.8
## 94 1.25 16.5
## 95 1.25 16.2
## 96 1.25 10.8
## 97 1.30 27.0
## 98 1.31 17.3
## 99 1.31 18.3
## 100 1.31 18.3
## 101 1.35 13.3
## 102 1.37 12.1
## 103 1.39 11.0
## 104 1.39 12.7
## 105 1.53 13.4
## 106 1.59 14.3
## 107 1.65 11.5
## 108 1.75 16.5
## 109 1.76 25.1
## 110 1.77 16.3
## 111 1.84 15.4
## 112 1.86 18.6
## 113 1.91 18.3
## 114 1.99 13.2
## 115 1.99 11.1
## 116 2.02 11.0
## 117 2.07 12.5
## 118 2.09 14.8
## 119 2.11 16.8
## 120 2.12 12.8
## 121 2.13 12.2
## 122 2.19 14.7
## 123 2.29 9.7
## 124 2.32 14.2
## 125 2.37 13.9
## 126 2.41 9.5
## 127 2.43 14.6
## 128 2.49 12.1
## 129 2.58 10.6
## 130 2.73 10.8
## 131 2.73 10.4
## 132 2.74 9.9
## 133 2.77 9.6
## 134 2.82 21.7
## 135 2.87 11.8
## 136 2.87 11.8
## 137 2.92 13.0
## 138 2.95 11.3
## 139 2.98 9.0
## 140 3.00 18.3
## 141 3.02 14.6
## 142 3.03 11.5
## 143 3.10 7.3
## 144 3.13 11.6
## 145 3.18 8.6
## 146 3.19 11.5
## 147 3.21 8.3
## 148 3.29 10.3
## 149 3.29 12.5
## 150 3.63 13.2
## 151 3.64 17.9
## 152 3.64 10.7
## 153 3.71 8.6
## 154 3.85 12.5
## 155 3.98 8.6
## 156 4.07 6.0
## 157 4.09 12.6
## 158 4.11 12.7
## 159 4.21 10.2
## 160 4.27 10.7
## 161 4.29 8.4
## 162 4.29 9.9
## 163 4.35 7.7
## 164 4.38 13.6
## 165 4.39 12.3
## 166 4.43 7.5
## 167 4.48 11.8
## 168 4.50 7.7
## 169 4.55 10.3
## 170 4.65 16.9
## 171 4.67 8.5
## 172 4.68 9.7
## 173 4.70 10.6
## 174 4.75 6.4
## 175 4.76 8.8
## 176 4.77 8.8
## 177 4.83 9.6
## 178 4.85 6.6
## 179 4.85 7.9
## 180 4.93 6.3
## 181 4.98 13.1
## 182 4.99 7.8
## 183 5.01 8.7
## 184 5.04 9.2
## 185 5.08 9.2
## 186 5.10 8.4
## 187 5.14 10.5
## 188 5.18 8.6
## 189 5.26 8.7
## 190 5.26 8.0
## 191 5.28 11.1
## 192 5.29 7.5
## 193 5.29 7.6
## 194 5.35 8.7
## 195 5.67 8.8
## 196 5.79 11.4
## 197 5.87 6.6
## 198 5.92 10.6
## 199 6.04 5.5
## 200 6.05 8.7
## 201 6.12 6.8
## 202 6.15 9.7
## 203 6.18 6.8
## 204 6.19 5.7
## 205 6.20 8.5
## 206 6.20 5.5
## 207 6.20 8.4
## 208 6.25 8.7
## 209 6.28 9.8
## 210 6.31 7.7
## 211 6.33 6.8
## 212 6.34 6.6
## 213 6.37 7.0
## 214 6.43 6.3
## 215 6.59 6.8
## 216 6.61 8.8
## 217 6.73 10.3
## 218 6.90 8.0
## 219 7.07 1.8
## 220 7.35 13.4
## 221 7.38 6.8
## 222 7.44 5.7
## 223 7.55 7.1
## 224 7.57 6.7
## 225 7.62 6.5
## 226 7.62 7.7
## 227 7.79 5.8
## 228 7.80 6.4
## 229 7.95 6.5
## 230 7.95 4.1
## 231 7.95 8.0
## 232 8.03 6.8
## 233 8.04 6.4
## 234 8.17 8.3
## 235 8.24 7.3
## 236 8.28 5.6
## 237 8.35 5.1
## 238 8.36 6.9
## 239 8.40 7.7
## 240 8.46 5.4
## 241 8.73 5.9
## 242 8.81 5.0
## 243 9.01 5.2
## 244 9.05 6.1
## 245 9.28 6.3
## 246 9.28 6.3
## 247 9.36 7.1
## 248 9.55 7.4
## 249 9.86 5.0
## 250 10.00 5.9
## 251 10.02 6.0
## 252 10.09 4.8
## 253 10.10 9.9
## 254 10.12 5.4
## 255 10.15 5.0
## 256 10.28 6.1
## 257 10.40 13.8
## 258 10.49 6.2
## 259 10.63 5.5
## 260 10.70 5.5
## 261 10.81 11.7
## 262 11.15 5.9
## 263 11.45 9.8
## 264 11.47 6.1
## 265 11.55 7.5
## 266 11.78 4.1
## 267 11.85 7.7
## 268 11.90 8.1
## 269 11.98 4.5
## 270 12.15 5.8
## 271 12.23 5.4
## 272 12.32 5.7
## 273 12.39 3.1
## 274 12.46 6.4
## 275 12.53 7.0
## 276 12.75 5.7
## 277 12.80 3.9
## 278 12.88 9.4
## 279 12.89 4.4
## 280 12.97 5.0
## 281 13.13 15.9
## 282 13.40 3.7
## 283 13.42 9.1
## 284 13.73 4.7
## 285 13.73 3.6
## 286 13.92 3.7
## 287 13.97 4.1
## 288 14.12 7.9
## 289 14.22 3.3
## 290 14.61 6.6
## 291 14.64 1.9
## 292 14.85 3.0
## 293 14.88 5.7
## 294 14.92 3.2
## 295 14.95 3.8
## 296 14.96 5.3
## 297 15.06 3.2
## 298 15.15 4.2
## 299 15.55 6.0
## 300 15.72 9.7
## 301 15.86 3.4
## 302 15.87 3.2
## 303 15.91 2.5
## 304 16.01 2.0
## 305 16.12 4.0
## 306 16.23 4.3
## 307 16.60 2.8
## 308 16.74 2.2
## 309 16.78 4.7
## 310 17.08 2.5
## 311 17.14 2.2
## 312 17.23 2.2
## 313 17.30 1.9
## 314 17.67 9.3
## ##################################################
## # 1.Promedio de GAG por años #
## ##################################################
PromedioGaG=mean(GAGurine$GAG[GAGurine$Age])
PromedioGaG
## [1] 24.74655
## ##################################################
## # 2.Mayor y menor concentración de GAG por año #
## ##################################################
max(GAGurine$GAG[GAGurine$Age])
## [1] 46.4
min(GAGurine$GAG[GAGurine$Age])
## [1] 16.5
## ##################################################
## # 3.Cantidad de muestras por año #
## ##################################################
barplot(table(GAGurine$GAG, GAGurine$Age), main = "Cantidad de muestras por año", ylab="No. GAG", xlab="Años")
## ##################################################
## # 4.Grafique de forma adecuada el punto a. #
## ##################################################
hist(GAGurine$GAG, main = "Promedio de GAG por años")
