ProyectoFinal
MarVin
2025-08-01
knitr::opts_chunk$set(echo = TRUE)#’Leemos los datos desde un archivo en formato separado por comas CSV
datos<- read.csv("C:/Users/CEC/Desktop/LenguajeR/proyectofinal.csv")
print(datos$Age)## [1] 56 69 46 32 60 25 38 56 36 40 28 28 41 53 57 41 20 39 19 41 61 47 55 19
## [25] 38 50 29 39 61 42 66 44 59 45 33 32 64 68 61 69 20 54 68 24 38 26 56 35
## [49] 21 42 31 67 26 43 19 37 45 64 24 61 25 64 52 31 34 53 67 57 21 19 23 59
## [73] 21 46 35 43 61 51 27 53 31 48 65 32 25 31 40 57 38 33 62 35 64 41 43 42
## [97] 62 58 46 32 62 18 42 24 26 41 18 61 25 41 28 68 34 25 52 52 50 22 59 56
## [121] 58 45 24 26 25 29 51 50 65 40 41 54 52 61 57 39 44 52 18 52 54 64 31 20
## [145] 18 22 43 31 56 44 26 32 32 43 59 30 68 49 56 66 69 49 21 47 54 40 56 62
## [169] 32 60 46 53 30 49 24 68 39 45 19 59 62 23 45 45 61 61 37 47 28 45 42 56
## [193] 50 18 44 69 30 58 20 56 23 25 44 26 54 50 68 59 61 41 32 49 49 41 58 69
## [217] 66 66 69 29 56 19 20 66 54 66 34 66 19 19 45 40 54 49 50 18 36 19 61 43
## [241] 49 23 49 21 28 34 55 41 22 69 51 23 39 28 65 33 50 26 23 33 46 20 37 53
## [265] 36 43 20 36 37 49 24 69 58 50 57 56 35 57 18 28 45 42 67 40 48 47 59 52
## [289] 24 33 43 65 69 66 19 18 65 29 22 54 49 26 58 52 36 65 33 20 37 41 50 41
## [313] 69 28 66 25 53 55 57 37 52 65 42 52 42 46 35 63 35 19 52 33 58 53 50 21
## [337] 50 31 38 65 37 25 24 20 34 50 65 29 68 39 39 63 47 55 55 62 68 25 44 44
## [361] 51 38 47 50 45 64 50 22 65 36 21 52 66 34 61 45 47 46 63 23 52 58 54 41
## [385] 46 66 63 48 52 50 69 38 49 40 50 20 35 42 59 48 20 57 63 41 67 49 64 39
## [409] 40 19 44 59 19 43 34 57 50 26 60 65 56 46 59 43 52 67 42 41 30 24 53 62
## [433] 37 18 25 63 33 31 29 68 40 32 45 51 19 49 40 39 68 42 39 39 66 69 59 23
## [457] 32 60 54 50 25 61 61 22 56 21 23 62 49 69 47 64 52 57 69 33 30 67 59 47
## [481] 36 34 36 45 43 54 43 40 26 29 18 18 64 51 49 65 42 57 62 18 33 56 22 39
## [505] 46 20 29 43 33 68 54 39 46 31 45 22 64 66 47 63 69 22 29 33 43 43 65 38
## [529] 56 53 50 47 54 40 27 22 53 51 69 48 27 36 49 18 22 62 21 33 41 33 19 66
## [553] 45 49 44 37 41 29 67 52 50 50 68 60 54 29 20 18 50 57 27 60 61 46 30 29
## [577] 48 63 19 68 67 52 40 34 43 25 46 43 27 43 51 68 58 24 21 67 62 28 46 53
## [601] 42 38 53 27 54 26 41 52 66 52 65 53 35 66 56 49 41 40 49 54 29 66 30 40
## [625] 42 52 58 47 34 66 37 65 42 39 30 36 66 53 29 58 36 29 26 24 45 31 48 69
## [649] 36 64 33 22 52 29 42 69 38 53 40 33 56 62 59 56 31 48 22 52 40 46 60 28
## [673] 35 64 29 26 27 61 34 55 24 63 30 57 59 26 67 44 19 22 46 54 55 36 25 65
## [697] 62 18 39 69 34 24 42 62 21 53 23 48 36 61 56 44 27 43 36 56 20 62 30 67
## [721] 45 37 45 25 58 56 18 20 30 45 66 42 50 55 23 61 62 49 62 64 38 33 38 28
## [745] 54 53 52 36 37 35 64 58 66 31 32 48 18 20 33 40 28 29 27 49 33 25 55 29
## [769] 41 45 25 45 53 43 25 67 45 45 54 58 53 44 34 26 50 37 30 45 65 46 30 63
## [793] 52 23 35 68 22 64 42 19 27 47 67 62 22 50 18 35 49 64 66 28 38 43 42 39
## [817] 44 66 30 50 51 58 52 18 38 65 23 45 34 22 48 22 55 20 40 54 54 27 27 36
## [841] 34 38 31 26 63 18 68 62 30 21 18 66 57 49 51 45 48 25 56 43 51 20 67 29
## [865] 18 61 22 47 47 34 65 64 40 32 54 38 31 19 28 68 56 55 51 55 67 51 35 47
## [889] 32 44 68 51 69 55 50 41 32 47 59 68 34 22 46 21 27 34 27 34 37 41 22 51
## [913] 23 19 30 60 60 65 28 68 64 40 33 48 28 33 25 21 57 21 42 20 49 20 44 46
## [937] 49 67 68 36 38 22 35 45 59 39 38 23 18 22 58 29 43 63 51 66 31 43 62 44
## [961] 26 43 64 39 64 47 60 65 34 43 53 18 25 66 52 69 32 64 39 31 43 45 40 31
## [985] 41 19 62 43 31 68 24 20 64 40 63 60 64 62 35 55 52 68 32 42 54 45 27 56
## [1009] 34 56 39 43 61 42 34 30 37 42 21 27 20 58 62 35 64 53 64 39 51 64 25 57
## [1033] 66 61 36 59 58 54 23 69 43 51 62 23 54 50 39 38 23 23 65 21 47 28 47 48
## [1057] 41 26 20 68 48 57 54 53 41 48 23 19 37 45 28 21 32 23 66 47 55 68 19 32
## [1081] 28 25 43 68 62 61 22 23 43 21 36 37 50 37 66 29 64 18 43 31 55 54 28 53
## [1105] 30 60 20 50 23 67 27 22 40 27 61 19 30 57 19 37 18 54 26 34 26 28 32 41
## [1129] 55 52 47 48 66 22 61 67 31 28 26 51 29 52 52 18 57 39 46 25 28 58 54 31
## [1153] 47 52 38 54 22 36 31 43 21 42 62 59 42 35 57 25 56 57 31 49 68 55 50 40
## [1177] 32 50 42 34 50 64 19 31 57 57 68 56 68 23 23 20 24 68 25 59 69 32 64 46
## [1201] 50 69 47 56 44 53 46 55 50 54 44 50 21 39 19 27 22 27 50 55 30 48 64 53
## [1225] 62 41 69 32 46 25 22 46 64 21 29 62 19 44 48 68 68 53 53 43 60 44 22 37
## [1249] 28 27 57 55 23 25 40 64 43 63 60 29 43 30 57 35 42 50 64 57 60 29 61 53
## [1273] 65 21 22 54 25 59 66 45 48 26 68 46 31 57 58 39 28 40 18 63 54 38 43 63
## [1297] 53 40 18 68 57 32 38 64 26 26 27 69 43 58 52 69 42 43 28 55 19 24 35 44
## [1321] 51 44 34 60 61 68 41 42 24 69 23 41 50 66 46 60 39 43 45 67 38 66 24 34
## [1345] 37 58 66 37 39 45 57 66 24 18 49 30 47 40 68 36 49 47 46 66 62 46 47 33
## [1369] 57 36 35 18 31 68 64 67 19 45 66 67 47 55 68 21 18 25 46 56 20 49 27 27
## [1393] 36 63 51 50 40 45 49 67 24 46 25 18 20 41 40 25 64 54 20 68 50 45 64 25
## [1417] 51 52 49 41 31 49 63 60 33 21 69 54 38 31 48 65 35 24 27 24 50 40 38 36
## [1441] 65 36 53 46 35 19 18 64 22 37 28 59 19 20 40 29 37 22 54 55 47 26 51 61
## [1465] 52 69 39 61 41 34 27 47 63 40 49 34 67 68 34 31 26 57 19 62 42 56 26 39
## [1489] 60 63 21 43 46 62 51 40 54 28 23 35 38 59 53 58 55 51 34 54 42 55 29 40
## [1513] 59 39 38 44 48 23 44 57 51 29 62 24 27 62 34 43 38 45 63 19 60 18 68 53
## [1537] 68 43 46 38 28 57 28 53 66 56 57 52 51 64 41 39 22 50 53 64 37 36 52 69
## [1561] 60 34 62 60 51 26 43 19 26 26 57 34 18 42 60 57 59 42 56 52 20 67 54 61
## [1585] 61 68 47 55 51 29 36 54 61 66 34 27 66 64 29 33 41 36 25 48 38 34 40 54
## [1609] 33 23 25 42 35 42 29 32 43 58 62 43 64 49 27 33 24 34 40 43 38 39 24 31
## [1633] 32 24 26 68 65 25 67 40 46 35 48 47 69 56 52 35 59 56 34 31 48 41 52 61
## [1657] 62 51 20 54 60 57 43 40 61 56 32 66 21 46 39 42 30 35 50 33 62 59 61 19
## [1681] 52 59 51 47 30 30 35 49 49 52 56 63 69 46 66 46 61 33 61 64 27 47 42 56
## [1705] 37 22 18 47 66 20 62 31 47 67 21 35 54 42 65 18 63 32 26 32 66 41 21 29
## [1729] 54 54 60 23 56 63 41 28 30 51 42 24 69 21 25 37 46 68 62 63 27 60 51 43
## [1753] 58 66 20 23 22 22 64 40 66 26 52 37 66 59 52 67 35 34 41 20 49 52 55 30
## [1777] 64 42 26 21 31 54 51 28 58 20 45 46 26 20 42 51 29 59 26 32 57 42 22 28
## [1801] 51 41 32 55 25 22 65 43 35 23 54 65 30 45 22 30 34 67 57 62 49 46 68 20
## [1825] 57 51 57 44 30 62 50 23 41 36 33 57 45 50 65 58 30 60 62 42 59 53 44 55
## [1849] 24 22 60 62 68 48 40 59 27 49 60 47 56 48 35 53 19 31 30 46 29 56 19 49
## [1873] 30 63 44 66 58 34 57 48 51 41 62 52 65 23 36 47 24 27 58 49 51 45 32 47
## [1897] 54 46 39 21 37 49 53 67 21 44 34 29 39 34 27 18 39 43 35 67 31 64 46 29
## [1921] 53 52 69 29 24 46 28 50 23 64 32 49 68 28 40 43 51 63 51 46 21 34 52 30
## [1945] 58 56 32 46 46 28 69 49 19 64 31 37 39 28 44 20 34 61 45 46 38 64 33 54
## [1969] 37 23 36 22 20 18 55 32 51 52 66 42 41 29 35 32 61 33 44 25 63 42 34 46
## [1993] 25 32 44 63 67 69 24 20 46 61 41 20 37 63 32 42 47 31 24 34 61 37 53 26
## [2017] 55 65 39 19 41 25 28 30 34 25 38 35 47 35 63 64 48 55 49 28 62 42 50 55
## [2041] 58 25 28 39 68 41 58 34 29 63 49 32 33 39 45 37 50 27 57 49 67 50 19 50
## [2065] 50 58 30 47 50 30 69 43 39 56 19 55 56 43 63 67 32 51 59 61 66 57 28 20
## [2089] 23 26 23 26 56 48 49 58 67 29 25 25 67 45 37 64 24 28 37 33 21 23 39 43
## [2113] 20 58 59 31 28 35 29 40 29 30 42 62 68 36 63 53 62 25 46 49 68 61 35 23
## [2137] 35 36 39 54 49 58 20 45 27 68 52 46 32 50 24 29 66 47 38 48 41 37 54 21
## [2161] 45 61 37 41 67 66 68 49 58 53 51 53 19 32 51 53 23 56 59 68 68 29 20 62
## [2185] 35 57 38 32 50 52 43 25 53 65 47 40 59 61 31 31 19 54 22 55 62 58 64 31
## [2209] 56 42 37 19 56 23 34 42 45 19 52 54 22 18 57 29 53 62 40 64 48 28 27 20
## [2233] 31 33 27 46 27 29 47 58 18 22 37 25 60 29 18 37 45 60 54 64 54 29 54 66
## [2257] 66 61 45 64 32 23 61 37 67 31 19 26 54 37 43 46 18 52 23 54 22 50 66 68
## [2281] 31 29 59 37 67 41 60 51 42 67 46 56 48 64 60 67 40 61 55 37 40 62 69 33
## [2305] 67 59 25 67 38 18 25 46 49 55 22 64 39 64 51 18 43 60 27 47 67 35 34 43
## [2329] 25 64 57 66 29 44 25 42 63 21 50 18 36 48 33 31 65 22 58 43 45 19 67 23
## [2353] 26 50 58 42 65 30 26 30 48 58 28 21 51 55 63 21 55 36 23 51 35 30 58 40
## [2377] 36 62 28 18 41 24 42 38 32 18 29 24 32 38 36 46 42 50 66 49 66 52 61 55
## [2401] 43 28 52 25 63 31 27 19 63 26 20 38 43 25 65 19 23 45 46 43 42 29 22 51
## [2425] 65 54 32 61 53 32 60 65 40 23 63 67 61 60 62 38 40 60 33 64 32 42 53 28
## [2449] 68 32 21 38 30 39 36 51 31 21 65 69 63 44 46 64 45 52 25 33 59 53 47 35
## [2473] 19 66 30 21 43 42 47 28 24 48 61 27 56 30 48 24 66 59 59 53 37 21 24 18
## [2497] 61 62 59 64 30 39 38 39 45 26 43 26 32 27 41 59 25 41 33 66 43 44 54 21
## [2521] 67 41 36 53 56 27 42 35 36 53 27 50 67 22 64 66 52 61 51 50 38 34 39 65
## [2545] 54 32 52 45 24 49 28 27 26 31 30 42 19 52 24 38 35 20 59 56 58 66 28 56
## [2569] 41 63 36 21 43 55 59 49 56 62 63 53 57 54 50 53 20 26 25 50 23 58 56 21
## [2593] 30 66 19 22 61 44 49 38 25 55 25 67 20 61 20 39 23 19 40 61 19 55 34 52
## [2617] 51 40 47 69 25 39 61 53 22 30 46 48 64 33 59 47 33 29 34 33 29 25 37 20
## [2641] 33 47 62 40 45 68 57 22 37 57 61 18 47 38 37 23 39 35 25 56 49 50 33 29
## [2665] 55 69 51 31 53 50 40 67 62 19 58 38 19 44 26 18 28 20 69 40 43 21 35 23
## [2689] 52 39 60 32 39 54 69 59 29 64 66 59 55 35 62 52 47 41 59 47 31 23 20 33
## [2713] 24 69 31 26 32 38 52 19 44 19 52 35 31 37 35 27 42 19 42 50 53 48 31 18
## [2737] 63 33 63 69 20 52 58 23 42 30 51 25 38 51 21 42 32 21 62 29 49 49 45 30
## [2761] 48 31 37 35 46 23 49 46 60 19 40 36 48 68 22 36 51 27 42 19 28 67 48 32
## [2785] 26 40 36 26 52 38 26 45 63 68 24 33 33 50 21 21 56 57 34 54 56 69 46 69
## [2809] 53 55 56 67 54 69 52 24 44 45 39 31 24 54 39 22 19 44 38 55 32 38 27 40
## [2833] 56 22 18 30 38 43 67 62 38 35 54 62 49 53 34 52 66 28 38 69 43 21 51 69
## [2857] 65 35 57 52 58 46 69 46 55 59 38 59 30 66 58 34 26 58 18 19 65 46 50 27
## [2881] 67 57 38 45 28 51 25 39 25 66 32 34 40 41 62 36 22 49 61 18 40 54 25 30
## [2905] 25 40 60 18 62 68 41 52 41 34 22 37 38 57 48 63 53 28 69 32 36 24 68 45
## [2929] 68 60 22 22 47 49 25 27 55 64 49 65 45 34 48 25 57 42 26 19 32 67 20 66
## [2953] 53 21 31 58 58 42 67 27 38 53 29 44 57 19 30 49 48 33 49 49 51 28 27 32
## [2977] 34 57 35 26 42 57 31 42 67 39 69 47 37 38 61 49 68 63 66 38 52 49 47 56
## [3001] 66 29 58 64 35 38 30 38 25 63 57 63 24 40 61 49 28 39 39 60 42 39 45 46
## [3025] 30 35 19 46 38 32 69 44 67 48 32 68 40 41 61 30 39 60 54 50 20 36 40 46
## [3049] 47 56 61 64 42 54 64 25 59 33 25 18 61 22 20 18 21 57 52 49 59 51 60 42
## [3073] 27 38 63 56 44 44 19 58 65 30 26 69 53 39 59 43 29 34 31 31 51 37 28 33
## [3097] 68 48 23 36 54 21 64 21 37 27 41 52 43 54 55 38 57 56 38 27 55 63 21 62
## [3121] 37 34 24 21 46 31 20 41 54 33 69 21 41 51 47 35 36 48 36 66 63 36 39 41
## [3145] 62 29 47 55 48 53 36 65 62 53 47 66 50 35 69 66 45 64 28 62 50 34 23 21
## [3169] 37 65 64 44 32 23 64 31 28 56 26 43 33 22 69 27 67 20 30 60 66 47 62 23
## [3193] 34 62 68 36 59 52 63 43 68 22 46 54 37 66 38 27 22 53 23 43 21 56 56 67
## [3217] 52 18 41 53 23 58 63 61 48 37 41 42 53 38 47 41 61 59 47 39 45 24 52 45
## [3241] 31 27 33 33 48 59 42 30 23 61 26 62 53 60 37 35 60 38 21 67 50 44 24 23
## [3265] 32 35 49 28 37 41 32 65 24 38 59 43 61 31 54 38 35 22 20 40 43 54 41 66
## [3289] 36 68 42 38 29 58 50 67 21 59 24 39 50 34 41 51 45 60 58 56 39 66 34 51
## [3313] 23 63 23 51 18 27 38 22 19 39 65 19 27 51 33 65 68 56 39 29 41 64 57 55
## [3337] 27 52 68 66 49 24 38 37 43 21 63 69 39 32 57 38 32 39 69 45 31 44 58 57
## [3361] 45 43 66 19 42 20 25 61 50 59 69 52 23 56 69 40 42 67 60 36 22 68 28 29
## [3385] 27 25 41 45 58 53 54 38 25 26 64 32 65 63 57 35 59 37 23 29 19 24 33 20
## [3409] 62 20 44 67 60 57 55 50 45 18 25 54 49 65 60 54 21 47 23 63 36 49 26 29
## [3433] 28 63 33 18 62 38 47 30 51 21 45 55 48 44 22 42 20 50 21 42 37 51 43 22
## [3457] 52 45 46 26 69 55 67 23 36 61 28 19 64 61 61 26 38 41 51 39 20 29 45 47
## [3481] 43 65 38 45 43 50 38 52 69 51 58 68 64 35 28 40 65 39 34 22 61 28 47 32
## [3505] 44 52 50 37 33 51 19 52 57 45 64 56 23 26 37 18 25 40 20 21 42 64 55 32
## [3529] 38 52 63 69 31 53 29 34 56 26 52 30 32 35 68 50 23 44 40 44 51 63 55 31
## [3553] 53 25 52 36 47 31 37 66 42 57 41 31 43 55 40 39 65 36 63 68 20 59 36 26
## [3577] 45 37 62 24 31 26 36 64 69 31 55 53 57 34 47 26 50 69 42 31 28 52 58 31
## [3601] 47 58 21 21 45 25 19 58 63 39 58 33 46 66 65 47 29 52 28 63 67 38 38 22
## [3625] 65 37 54 20 61 50 26 26 21 52 34 51 41 49 18 25 62 40 64 57 29 29 63 64
## [3649] 32 58 36 43 69 46 39 57 38 68 55 37 46 68 21 24 45 45 21 39 29 62 20 39
## [3673] 61 19 41 51 44 58 18 25 40 55 23 39 42 35 34 29 23 43 44 25 36 59 18 46
## [3697] 62 66 52 57 31 52 65 62 37 66 30 55 66 63 66 25 60 37 50 43 56 38 66 59
## [3721] 60 58 26 41 54 66 58 34 41 38 68 56 58 56 30 28 63 36 28 30 63 62 18 57
## [3745] 61 36 29 25 25 62 29 65 50 62 43 56 45 22 25 42 44 63 40 47 62 64 40 66
## [3769] 64 37 35 35 19 21 47 50 53 35 54 36 64 45 57 37 66 50 29 68 32 58 56 19
## [3793] 46 58 27 19 68 28 30 27 31 35 68 26 56 45 20 37 23 44 19 46 55 20 33 47
## [3817] 57 19 34 58 29 52 60 18 62 32 43 54 38 66 48 42 40 41 55 45 38 60 35 53
## [3841] 52 62 26 55 47 61 51 49 20 20 45 61 32 58 40 57 28 65 49 53 50 41 56 51
## [3865] 45 54 24 21 54 18 18 64 37 36 46 27 35 45 52 60 64 48 44 28 66 66 55 22
## [3889] 25 51 65 69 29 55 18 48 21 66 62 67 22 47 41 20 28 62 21 43 44 63 60 44
## [3913] 59 68 67 23 32 47 59 54 54 59 54 52 40 23 21 35 26 66 46 30 64 69 34 62
## [3937] 49 65 39 21 22 54 58 66 30 51 62 39 40 68 20 59 51 49 62 68 66 38 63 61
## [3961] 38 61 28 56 21 68 18 45 41 52 30 64 51 28 53 68 34 52 35 57 39 41 36 54
## [3985] 56 38 25 45 22 34 54 53 36 44 51 28 62 64 29 38 28 56 45 22 34 37 58 63
## [4009] 29 23 34 68 36 43 65 61 61 69 49 23 53 55 28 50 41 40 32 44 28 68 67 34
## [4033] 68 31 44 35 45 68 64 64 21 24 62 52 65 26 25 69 62 34 34 66 50 49 25 36
## [4057] 55 20 22 30 64 63 48 33 67 49 39 46 39 60 20 27 59 38 33 29 19 58 41 52
## [4081] 47 47 64 52 36 67 25 43 66 57 24 47 24 20 18 53 42 54 18 32 54 30 57 25
## [4105] 22 26 18 53 52 19 57 40 26 51 63 31 21 47 48 55 28 52 25 20 31 30 62 49
## [4129] 51 62 36 55 33 19 57 34 51 59 33 55 19 19 43 30 64 48 51 56 20 25 40 31
## [4153] 44 46 56 56 18 34 58 47 30 38 36 36 42 39 48 34 40 49 27 27 53 25 69 37
## [4177] 49 67 31 67 45 63 69 41 32 39 47 21 30 40 25 35 29 48 31 51 35 51 28 58
## [4201] 29 66 32 48 66 46 43 35 49 39 55 34 40 41 67 25 58 23 22 61 46 45 28 18
## [4225] 60 36 26 44 51 61 21 53 35 32 68 30 36 66 23 65 29 68 54 34 40 43 46 50
## [4249] 44 42 27 64 40 38 38 60 30 54 50 41 61 28 34 21 64 42 47 26 38 37 36 36
## [4273] 29 54 59 34 54 65 56 45 58 52 64 65 35 31 52 61 58 24 58 30 35 54 30 53
## [4297] 48 19 33 26 26 55 28 39 50 53 62 40 62 62 51 26 41 25 24 53 35 20 45 23
## [4321] 61 61 38 45 57 18 53 38 60 52 30 66 27 61 64 27 63 30 54 55 41 19 39 34
## [4345] 53 31 27 52 42 20 64 55 34 29 69 41 46 60 42 53 43 55 18 37 45 33 64 34
## [4369] 57 45 29 44 59 64 47 58 51 54 23 24 49 49 42 50 24 69 29 33 33 60 53 30
## [4393] 24 53 64 68 26 49 28 25 50 40 42 25 62 39 21 57 20 46 58 46 51 51 45 30
## [4417] 32 40 61 43 21 43 57 26 22 49 37 67 28 32 49 45 39 58 34 43 61 24 59 43
## [4441] 42 27 62 36 28 30 25 57 21 64 48 45 28 60 18 66 64 69 55 41 64 48 58 63
## [4465] 67 43 66 67 22 37 69 58 28 50 67 55 44 51 32 49 38 63 22 23 55 39 35 31
## [4489] 27 63 30 48 47 20 47 23 46 25 61 62 60 61 50 34 65 28 30 67 28 48 45 61
## [4513] 23 58 33 21 52 65 43 29 28 54 42 35 36 40 55 35 43 23 21 61 68 46 51 34
## [4537] 60 60 33 19 51 25 30 59 25 47 49 53 64 47 18 60 56 34 37 41 67 39 46 39
## [4561] 61 26 54 27 53 54 45 45 59 60 38 41 59 57 19 25 65 44 39 54 44 46 20 61
## [4585] 30 62 27 53 26 44 51 68 18 49 42 46 24 66 20 37 37 47 52 52 66 56 44 43
## [4609] 31 34 35 62 69 46 37 44 35 21 18 67 18 43 62 37 69 40 27 28 58 58 22 18
## [4633] 34 39 51 62 58 46 21 22 28 68 38 52 29 43 68 36 62 24 64 24 43 57 22 38
## [4657] 31 21 40 59 37 32 67 69 62 46 25 58 65 36 65 56 63 45 63 44 21 32 52 54
## [4681] 18 20 64 41 44 57 53 51 46 41 41 59 21 20 51 66 40 69 40 62 22 48 58 23
## [4705] 54 27 57 24 56 55 38 37 20 68 39 64 21 45 29 55 68 53 64 58 22 30 40 67
## [4729] 47 54 42 65 44 68 31 65 64 53 56 33 39 38 38 25 66 33 48 59 27 49 51 26
## [4753] 34 28 49 27 39 34 21 65 69 64 42 38 54 55 66 18 42 68 53 34 58 41 19 57
## [4777] 32 49 56 23 18 64 40 56 34 51 58 46 26 30 23 23 37 69 20 34 66 29 65 64
## [4801] 62 18 34 20 43 32 53 49 49 21 35 66 36 60 69 52 57 31 50 31 51 21 41 46
## [4825] 36 23 50 66 57 36 18 22 44 33 23 57 30 65 52 36 29 33 60 27 42 37 48 21
## [4849] 61 40 19 39 68 54 25 24 31 20 67 33 36 68 35 69 33 25 50 66 29 28 22 44
## [4873] 29 34 23 50 22 45 31 22 50 67 65 58 36 39 22 19 47 64 56 21 50 30 37 24
## [4897] 32 40 31 40 36 46 37 46 41 35 27 58 25 43 46 27 34 19 23 22 45 58 22 35
## [4921] 43 37 58 66 44 66 29 24 20 27 51 42 52 33 19 41 27 55 39 43 60 56 44 46
## [4945] 64 55 37 44 58 37 61 36 37 52 64 19 47 51 39 20 23 32 44 27 26 50 49 65
## [4969] 23 58 53 19 46 21 18 36 43 42 27 32 39 68 65 38 39 53 51 47 42 62 45 18
## [4993] 66 62 21 24 66 26 53 36 18 27 53 26 62 63 59 49 49 23 65 55 34 27 67 44
## [5017] 67 52 69 38 42 45 64 32 21 46 26 44 43 36 45 34 60 58 59 67 37 62 57 56
## [5041] 66 40 64 49 69 64 50 63 22 60 65 51 57 28 67 20 50 28 33 35 47 65 27 35
## [5065] 55 36 53 30 63 20 27 55 18 44 63 25 68 63 59 34 26 23 60 42 56 66 45 50
## [5089] 54 26 35 38 19 60 55 57 53 67 60 54 32 45 35 51 39 28 30 21 39 24 60 41
## [5113] 21 45 32 18 20 31 55 67 18 55 55 38 65 46 22 66 27 45 38 67 24 20 62 64
## [5137] 37 36 52 21 22 18 21 29 44 59 40 42 38 69 41 42 62 63 49 49 22 53 63 59
## [5161] 66 59 56 33 50 66 38 26 23 68 62 52 56 39 58 22 59 40 34 29 40 33 20 47
## [5185] 39 26 46 64 54 40 30 49 63 69 64 65 40 62 34 57 38 19 54 23 61 35 47 39
## [5209] 50 47 34 60 49 59 68 31 27 64 68 53 51 26 59 45 28 31 56 64 36 32 45 41
## [5233] 25 60 26 64 50 50 36 20 27 57 64 59 18 46 67 51 68 30 18 51 46 65 64 30
## [5257] 65 66 46 56 41 43 34 24 30 22 43 66 20 24 66 56 18 66 34 60 42 20 32 46
## [5281] 60 49 43 33 42 45 26 18 46 39 33 58 68 61 68 58 24 31 46 36 36 19 58 62
## [5305] 32 20 28 63 47 57 35 68 65 19 49 25 39 23 29 64 57 53 32 45 69 66 62 35
## [5329] 19 30 62 32 37 46 59 46 20 36 20 31 57 21 69 28 48 60 49 44 47 60 19 66
## [5353] 26 45 48 51 32 65 42 53 25 26 54 65 62 56 49 69 34 52 54 36 61 46 24 45
## [5377] 26 45 23 46 34 33 40 48 20 38 43 53 59 54 39 59 29 59 30 28 33 25 57 57
## [5401] 62 19 47 47 29 27 61 28 32 33 34 43 19 67 29 68 43 40 35 49 66 55 64 20
## [5425] 55 20 47 18 47 62 49 45 38 63 30 44 53 24 39 27 56 32 32 21 49 40 23 41
## [5449] 37 54 37 29 50 45 25 18 54 39 23 38 49 52 32 22 63 67 65 23 42 63 57 46
## [5473] 24 57 30 55 35 19 25 28 50 55 65 44 37 29 60 48 44 49 27 20 62 44 52 48
## [5497] 32 33 30 66 52 69 28 38 68 28 47 65 52 39 55 48 31 41 67 66 49 53 49 32
## [5521] 60 52 20 33 22 38 27 36 42 21 46 36 60 19 27 60 42 37 65 36 40 41 28 63
## [5545] 51 45 22 22 68 38 29 67 21 66 59 37 55 42 31 28 49 28 35 44 35 40 28 38
## [5569] 61 22 40 58 42 58 27 39 36 18 24 21 18 32 57 29 39 39 67 64 34 46 63 31
## [5593] 67 37 67 65 50 60 32 29 57 37 47 55 20 45 43 47 30 30 19 54 66 55 19 53
## [5617] 43 28 25 61 57 60 39 37 25 46 57 43 47 34 37 69 33 63 60 24 33 62 64 65
## [5641] 44 40 41 26 52 68 37 54 59 34 64 48 25 32 48 47 63 37 56 29 66 34 59 47
## [5665] 46 36 63 28 51 67 24 61 51 37 67 55 41 27 49 69 32 54 37 20 54 57 25 57
## [5689] 61 40 57 28 63 25 46 47 27 56 45 66 53 30 49 53 54 43 39 21 48 35 55 41
## [5713] 40 39 19 48 28 45 63 49 22 55 27 57 63 41 52 61 65 40 34 18 48 48 59 59
## [5737] 51 26 39 30 42 65 35 68 29 57 34 32 59 32 32 56 30 34 49 26 57 37 43 44
## [5761] 38 35 30 33 26 29 61 55 36 24 52 65 35 33 56 21 42 49 57 30 62 34 66 54
## [5785] 23 36 30 43 31 48 21 56 25 42 30 49 55 55 45 47 20 45 20 62 51 33 39 49
## [5809] 55 25 25 23 31 49 52 27 20 29 66 48 46 22 69 42 58 48 38 37 56 39 21 30
## [5833] 62 59 67 66 37 69 30 34 53 50 18 32 30 34 41 25 67 44 62 40 63 25 25 43
## [5857] 64 30 56 54 66 45 42 33 19 35 34 47 56 30 49 67 46 63 47 35 30 60 38 47
## [5881] 38 65 34 57 36 69 32 26 69 27 61 48 40 69 47 50 69 26 64 18 61 52 28 51
## [5905] 33 26 49 32 29 50 62 31 25 25 44 29 18 60 57 59 68 28 56 60 48 34 50 49
## [5929] 46 38 38 57 40 23 39 67 55 54 62 68 25 58 66 52 68 28 41 66 38 68 19 57
## [5953] 36 56 45 34 23 36 55 45 19 55 54 68 69 21 39 43 66 60 53 30 69 49 34 58
## [5977] 53 63 36 52 63 57 45 18 59 35 65 57 50 29 25 41 33 67 21 55 61 44 26 64
## [6001] 33 29 48 41 31 62 42 51 20 41 59 26 43 37 57 27 36 20 41 22 20 44 33 66
## [6025] 32 52 29 58 61 43 64 51 40 48 67 37 29 40 21 40 65 65 18 42 19 47 20 38
## [6049] 42 37 66 69 39 38 50 69 55 32 63 69 32 63 42 38 41 22 23 66 60 65 61 64
## [6073] 40 21 44 35 38 45 52 39 57 40 20 57 67 27 42 69 66 25 28 22 62 54 62 55
## [6097] 46 22 26 65 19 18 57 68 47 28 45 61 29 56 43 30 25 45 47 26 56 48 38 64
## [6121] 51 48 69 42 29 18 39 57 54 64 18 18 59 59 38 32 34 39 55 52 62 33 25 64
## [6145] 34 34 43 30 34 55 34 65 31 62 23 52 63 31 64 25 32 44 30 66 48 52 23 22
## [6169] 39 66 40 42 51 43 64 22 43 37 23 23 67 35 21 34 31 31 30 24 61 32 36 60
## [6193] 64 61 52 34 52 36 37 53 52 49 65 61 57 41 34 24 60 67 18 52 49 53 30 23
## [6217] 31 54 65 32 64 21 57 33 45 33 21 62 43 45 49 62 19 48 20 25 41 32 60 48
## [6241] 26 56 62 19 25 24 61 68 56 59 33 52 47 27 55 35 67 22 46 56 51 60 62 40
## [6265] 22 47 23 63 61 21 46 40 23 49 59 35 32 57 49 26 54 27 37 23 65 20 59 28
## [6289] 60 34 49 21 21 34 58 36 22 49 39 23 52 39 18 37 39 65 28 30 59 20 26 29
## [6313] 40 31 50 35 66 58 26 40 27 36 64 22 64 69 40 47 42 45 51 62 65 64 42 27
## [6337] 31 59 63 47 58 42 31 52 69 65 51 27 52 28 28 38 38 39 62 24 34 19 29 59
## [6361] 35 28 33 66 68 35 52 43 33 23 61 60 64 64 65 59 29 30 21 56 19 43 44 44
## [6385] 32 25 24 64 63 57 29 30 60 34 34 53 38 25 22 43 33 53 45 46 64 29 54 47
## [6409] 40 33 31 27 24 62 69 54 46 20 32 53 64 63 69 36 30 59 38 54 44 69 46 37
## [6433] 42 23 53 19 39 49 33 35 22 53 47 62 36 40 51 30 60 46 53 39 69 69 64 53
## [6457] 26 56 68 36 55 23 69 64 32 37 26 49 21 67 35 22 37 40 28 54 39 21 46 61
## [6481] 51 30 59 26 59 48 24 21 36 59 47 48 52 38 48 36 48 49 19 69 27 19 19 41
## [6505] 34 49 33 33 63 56 48 60 41 18 28 38 21 24 43 64 67 29 48 34 50 28 45 49
## [6529] 18 64 45 59 24 19 59 41 21 61 36 43 28 57 67 60 28 62 20 29 20 59 44 66
## [6553] 19 66 33 19 47 37 55 45 42 49 27 59 57 50 30 58 59 64 54 33 62 39 37 67
## [6577] 60 44 58 33 51 49 43 42 19 29 57 26 29 43 26 27 49 51 65 37 56 19 18 68
## [6601] 53 41 44 19 48 31 19 46 32 29 54 45 37 56 41 38 27 63 31 54 35 41 31 51
## [6625] 29 39 23 53 62 53 39 31 33 53 42 49 50 62 53 37 35 55 20 40 49 62 33 22
## [6649] 21 38 57 68 31 56 48 31 23 29 33 34 62 40 31 24 63 49 32 61 34 58 64 61
## [6673] 51 22 62 44 69 40 57 31 32 60 50 48 52 34 45 36 63 40 49 57 30 37 52 22
## [6697] 26 46 23 42 48 39 19 62 22 44 42 25 18 37 61 40 49 28 56 64 41 28 46 43
## [6721] 33 52 37 63 20 18 64 18 34 19 46 37 23 25 46 65 68 50 20 52 22 44 61 29
## [6745] 37 62 37 26 56 21 68 36 55 44 62 60 30 30 39 45 69 64 62 39 60 36 25 69
## [6769] 25 59 43 65 68 43 40 60 30 45 26 37 36 65 56 68 29 32 48 31 28 43 59 44
## [6793] 28 55 51 60 36 23 63 69 55 66 59 45 18 52 57 25 69 64 24 28 56 21 42 29
## [6817] 43 55 63 29 60 68 54 63 41 33 30 42 69 21 28 49 66 24 63 28 45 58 40 62
## [6841] 40 67 45 60 64 43 42 46 36 50 53 31 31 52 47 45 34 20 33 63 47 69 46 62
## [6865] 32 63 42 68 55 59 64 69 55 40 42 59 24 39 34 35 66 58 27 27 24 65 67 55
## [6889] 44 69 50 18 61 51 21 34 21 60 43 21 18 24 47 67 26 52 25 41 36 53 67 69
## [6913] 60 44 49 31 35 45 46 33 52 64 48 21 54 34 56 65 63 43 65 56 58 21 47 47
## [6937] 39 28 19 61 29 47 53 35 43 24 18 43 40 43 62 23 23 61 25 41 39 36 54 35
## [6961] 48 54 47 59 50 27 54 29 47 44 56 26 38 29 46 50 60 32 19 69 56 61 35 20
## [6985] 24 60 35 61 55 54 50 61 48 28 21 35 21 66 51 46 41 39 19 61 23 59 42 38
## [7009] 33 48 31 56 45 49 45 68 66 26 62 39 49 22 40 22 59 49 27 56 32 24 46 64
## [7033] 20 36 27 45 46 32 52 23 29 64 55 30 46 36 20 25 25 37 64 21 68 38 20 62
## [7057] 25 40 33 30 20 65 26 31 30 24 32 24 55 51 58 39 41 66 54 61 18 27 60 33
## [7081] 63 25 66 42 67 29 42 34 43 63 65 31 58 53 40 60 23 64 22 60 42 35 30 60
## [7105] 31 45 35 45 68 44 49 64 26 57 49 37 45 50 21 63 51 65 20 43 25 23 33 41
## [7129] 65 56 47 62 30 22 42 37 35 64 35 19 27 62 67 64 29 64 30 67 64 28 36 52
## [7153] 56 43 63 31 62 61 41 58 18 68 60 39 40 36 35 29 45 45 50 36 45 69 66 54
## [7177] 43 52 51 52 57 33 55 30 40 39 33 45 65 52 62 63 25 61 39 38 43 57 38 42
## [7201] 58 18 23 40 68 40 60 60 40 49 47 30 60 35 40 32 50 38 56 40 44 62 61 35
## [7225] 41 68 64 57 68 59 24 67 65 37 44 23 44 26 62 48 38 43 57 65 62 30 66 40
## [7249] 37 54 45 34 45 58 19 42 67 58 23 28 55 23 62 28 31 19 57 20 52 50 41 36
## [7273] 35 66 69 41 62 52 18 53 42 62 66 60 51 42 33 51 46 36 40 36 42 33 68 26
## [7297] 18 59 36 50 51 33 61 57 35 51 42 62 23 38 23 49 58 65 60 56 48 59 27 47
## [7321] 69 35 41 69 26 48 32 21 57 26 62 26 43 21 34 33 32 52 69 22 22 37 32 35
## [7345] 64 19 46 30 21 59 62 27 48 58 25 20 65 63 26 47 28 52 54 59 30 53 30 29
## [7369] 54 27 26 69 24 19 40 56 57 56 38 40 46 31 43 68 22 48 42 48 67 37 61 34
## [7393] 62 19 42 30 56 45 59 23 20 52 35 28 37 22 36 39 36 64 33 41 58 21 32 42
## [7417] 61 52 31 66 36 55 53 24 47 36 66 42 33 64 57 68 25 35 45 33 69 36 59 34
## [7441] 62 30 24 44 27 51 53 42 23 41 35 40 23 46 42 34 63 41 28 43 68 51 45 20
## [7465] 28 55 31 68 43 65 38 56 47 25 68 37 65 49 39 24 26 62 18 46 25 21 52 20
## [7489] 62 57 24 44 18 44 33 55 24 61 40 58 28 59 50 67 53 54 58 34 52 65 22 65
## [7513] 49 20 69 64 52 69 31 65 48 48 34 41 69 40 35 67 31 67 32 32 23 44 32 67
## [7537] 53 25 32 20 64 30 58 51 41 57 49 49 47 69 66 30 18 51 32 61 31 46 51 35
## [7561] 24 46 48 42 55 31 25 44 19 34 54 31 42 47 46 37 38 39 52 54 33 67 66 60
## [7585] 34 33 19 21 38 56 51 47 23 34 56 42 22 22 37 33 68 58 54 57 26 22 59 19
## [7609] 26 60 53 39 39 39 51 46 55 63 50 35 24 18 50 18 41 21 21 35 44 60 49 50
## [7633] 45 59 58 53 23 33 51 40 67 59 41 66 30 35 30 66 54 60 56 59 34 32 35 40
## [7657] 68 47 51 21 20 24 35 59 24 57 23 39 18 21 63 66 69 67 60 46 38 43 31 26
## [7681] 64 29 59 68 68 23 37 41 44 55 25 18 66 66 41 64 24 36 39 52 47 46 39 28
## [7705] 37 46 68 58 59 51 18 48 47 65 35 34 55 31 40 42 32 63 39 20 36 61 51 52
## [7729] 67 18 69 38 46 23 54 18 68 18 44 38 33 61 57 43 33 45 18 53 27 60 34 40
## [7753] 24 61 24 61 32 51 63 62 21 31 31 33 24 49 36 19 27 67 34 54 29 23 39 49
## [7777] 58 37 18 64 23 36 35 23 62 50 40 40 43 30 24 32 61 44 43 50 32 53 62 44
## [7801] 22 19 50 33 40 55 33 31 46 43 52 32 20 40 46 51 50 58 58 40 24 20 49 48
## [7825] 35 60 24 58 18 31 69 49 23 56 27 24 43 51 47 53 38 34 50 27 68 64 59 68
## [7849] 29 33 58 49 32 44 45 34 63 67 19 53 67 24 30 32 42 40 39 43 50 28 27 42
## [7873] 54 65 60 55 58 62 41 57 63 50 34 41 54 19 49 41 26 21 34 34 67 65 47 57
## [7897] 28 38 38 35 46 41 27 62 34 35 59 65 37 54 62 35 34 26 31 66 46 48 21 35
## [7921] 37 64 60 61 26 30 32 44 32 45 54 36 43 69 43 42 43 43 63 45 66 35 49 20
## [7945] 19 50 59 36 34 61 50 29 66 20 60 66 43 52 25 69 53 24 63 63 53 33 41 18
## [7969] 66 42 27 33 33 25 46 56 45 23 33 37 33 24 58 31 60 43 43 31 24 50 43 62
## [7993] 37 20 69 21 43 28 19 31#’Creamos las funciones personalizadas para estadística
#‘CALCULO DE LA MEDIA ARITMETICA #’Función: f_mi_media_arit(c) Calcula el valor de la Media Aritmética de los datos ingresados como vector en el parámetro (x). Se indica si se omiten o retiran los valores NA para los datos del vector, mediante el segundo parámetro tipo booleano Verdad=RetirarNA #’@param x Vector numérico de valores del cual se calculará la media aritmética #‘@param quitar_na Valor booleano que indica si se omiten los valores tipo NA #’@return Valor numérico de la Media Aritmética
f_mi_media_arit <- function(x, quitar_na = TRUE)
{
if (quitar_na){
x <- na.omit(x)
}
return <- ( sum(x) / length(x) )
}#‘CALCULO DE LA MEDIA PONDERADA #’Función: f_mi_media_ponderada(x,y) Calcula el valor de la Media Ponderada de los datos ingresados como vector en los parámetros (x,y). Se indica si se omiten o retiran los valores NA para los datos de los vectores, mediante el segundo parámetro tipo booleano Verdad=RetirarNA #’@param x Vector numérico de valores del cual se calculará la media ponderada #‘@param y Vector numérico de valores de pesos con el cual se calculará la media ponderada #’@param quitar_na Valor booleano que indica si se omiten los valores tipo NA #’@return Valor numérico de la Media Aritmética
f_mi_media_ponderada <- function (x, y, quitar_na = TRUE){
if (length(x) != length(y)) {
stop("Error: los vectores tienen longitudes diferentes.")
}
if (quitar_na){
x <- na.omit(x)
y <- na.omit(y)
}
return <- ( sum(x * y) / sum(y) )
}#‘CALCULO DE LA VARIANZA #’Función: f_mi_varianza(x) Calcula el valor de la Varianza de los datos ingresados como vector en el parámetro (x). Se indica si se omiten o retiran los valores NA para los datos del vector, mediante el segundo parámetro tipo booleano Verdad=RetirarNA #’@param x Vector numérico de valores del cual se calculará la Varianza #‘@param quitar_na Valor booleano que indica si se omiten los valores tipo NA #’@return Valor numérico de la Varianza
f_mi_varianza <- function (x, quitar_na = TRUE){
if (quitar_na){
x <- na.omit(x)
}
return <- ( ((sum((x - f_mi_media_arit(x))^2))) /((length(x) - 1) ) )
}#’DESVIACIÓN ESTANDAR
#‘Función: f_mi_desviacion_estandar(x) Calcula el valor de la Desviación Estándar de los datos ingresados como vector en el parámetro (x). Se indica si se omiten o retiran los valores NA para los datos del vector, mediante el segundo parámetro tipo booleano Verdad=RetirarNA #’@param x Vector numérico de valores del cual se calculará la Varianza #‘@param quitar_na Valor booleano que indica si se omiten los valores tipo NA #’@return Valor numérico de la Desviación Estándar
f_mi_desviacion_estandar <- function(x, quitar_na = TRUE){
if (quitar_na){
x <- na.omit(x)
}
return <- (f_mi_varianza(x, quitar_na = TRUE))^0.5
}#’Limpiar campos #’Verificar la normalidad:
hist(datos$Age, probability = TRUE)
lines(density(datos$Age), col = "blue")
# Media y desviación estándar de ROI
mu <- f_mi_media_arit(datos$Age)
sigma <- f_mi_desviacion_estandar(datos$Age)
# Probabilidad de que ROI sea menor que 6
pnorm(6, mean = mu, sd = sigma)## [1] 0.005789371# Simular 100 valores con esa distribución
simulados <- rnorm(100, mean = mu, sd = sigma)
hist(simulados, col = "lightblue", main = "Distribución simulada de AGE")
## R Markdown
Este documento corresponde al PROYECTO FINAL del Curso de Lenguaje R. El contenido de este documento evidencia el conocimiento adquirido en las clases de Lenguaje R, en el cual se carga la información de un archivo llamado ventas y se procede a realizar un análisis de datos mediante las instrucciones y funciones personalizadas de Lenguaje R.
Gracias querido Profesor :)