yes

Datos

set.seed(1000)
dist1 <- sample(70:100, size = 100, replace=TRUE)
dist2 <- sample(70:100, size = 100, replace=TRUE)
dist3 <- sample(70:100, size = 100, replace=TRUE)

dist1
##   [1]  85  73  80  91  88  93  98  72  98  87  91  75  82  75  70  78  98  95
##  [19]  95  97  92  87  74  99  88  85  95  98  79  78  95  76  93  81  86  91
##  [37]  93  97  96  77  88  72  96  75  76  82  91  75  76  85  97  77  72  90
##  [55]  87  82  99  87  85  86  86  72  82  83  77 100  77  80  93  96  81  81
##  [73]  95  79  80  93  95  85  84  81  75  78  91  90  80  90 100  80  79  79
##  [91]  70  96  94  78  76  83 100  94  86  71
dist2
##   [1]  76  76  86  72  94  83  71  70  88  90  75  77  89 100  73  78  91  92
##  [19]  83  94  85  97  74  88  94  95 100  88 100 100  98  90  72  86  93  78
##  [37]  91  97  78  99  74  85  73  78  75  97  81  94  80  88  79  77 100  84
##  [55]  79  93  88  98  88  87  77  86 100  85  72  82  72  94  75  99  74  92
##  [73]  72  96  84  84  94  75  78  71  89  87  98  77  98  70  80  93  86  74
##  [91]  74  97  99  85 100  84  99  78  89  93
dist3
##   [1]  92  84  92  95  96  92  92  71  85  87  87  89  74  70  92  85  75  94
##  [19]  97  86  93  77  93  88  93 100  76  91  96  77 100  89  94  98  82  93
##  [37]  72  73  76  89  92  88  87  88  87  97  86  74  75  76  90  75  97  89
##  [55]  78  89  73  89  72  79  74  80  72  92  70  82  70  82  91  97  74  90
##  [73]  78  89  71  77 100  70  70  71  70  70  85  72  90  76  81  95  84  93
##  [91]  78  77  95  88  76  71  95  88  96  84

Ordenar datos, histograma, grƔrfica de tallo y hoja, generar frecuencias, ordenar frecuencias

sort(dist1)
##   [1]  70  70  71  72  72  72  72  73  74  75  75  75  75  75  76  76  76  76
##  [19]  77  77  77  77  78  78  78  78  79  79  79  79  80  80  80  80  80  81
##  [37]  81  81  81  82  82  82  82  83  83  84  85  85  85  85  85  86  86  86
##  [55]  86  87  87  87  87  88  88  88  90  90  90  91  91  91  91  91  92  93
##  [73]  93  93  93  93  94  94  95  95  95  95  95  95  96  96  96  96  97  97
##  [91]  97  98  98  98  98  99  99 100 100 100
hist(dist1)

stem(dist1)
## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##    7 | 001222234
##    7 | 555556666777788889999
##    8 | 0000011112222334
##    8 | 5555566667777888
##    9 | 0001111123333344
##    9 | 5555556666777888899
##   10 | 000
frecuencia1 <- table(dist1)
sort(table(dist1))
## dist1
##  71  73  74  84  92  70  83  94  99  88  90  97 100  72  76  77  78  79  81  82 
##   1   1   1   1   1   2   2   2   2   3   3   3   3   4   4   4   4   4   4   4 
##  86  87  96  98  75  80  85  91  93  95 
##   4   4   4   4   5   5   5   5   5   6
sort(dist2)
##   [1]  70  70  71  71  72  72  72  72  72  73  73  74  74  74  74  74  75  75
##  [19]  75  75  76  76  77  77  77  77  78  78  78  78  78  78  79  79  80  80
##  [37]  81  82  83  83  84  84  84  84  85  85  85  85  86  86  86  86  87  87
##  [55]  88  88  88  88  88  88  89  89  89  90  90  91  91  92  92  93  93  93
##  [73]  93  94  94  94  94  94  94  95  96  97  97  97  97  98  98  98  98  99
##  [91]  99  99  99 100 100 100 100 100 100 100
hist(dist2)

stem(dist2)
## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##    7 | 0011222223344444
##    7 | 555566777788888899
##    8 | 0012334444
##    8 | 5555666677888888999
##    9 | 0011223333444444
##    9 | 56777788889999
##   10 | 0000000
frecuencia2 <- table(dist2)
sort(table(dist2))
## dist2
##  81  82  95  96  70  71  73  76  79  80  83  87  90  91  92  89  75  77  84  85 
##   1   1   1   1   2   2   2   2   2   2   2   2   2   2   2   3   4   4   4   4 
##  86  93  97  98  99  72  74  78  88  94 100 
##   4   4   4   4   4   5   5   6   6   6   7
sort(dist3)
##   [1]  70  70  70  70  70  70  70  71  71  71  71  72  72  72  72  73  73  74
##  [19]  74  74  74  75  75  75  76  76  76  76  76  77  77  77  77  78  78  78
##  [37]  79  80  81  82  82  82  84  84  84  85  85  85  86  86  87  87  87  87
##  [55]  88  88  88  88  88  89  89  89  89  89  89  89  90  90  90  91  91  92
##  [73]  92  92  92  92  92  92  93  93  93  93  93  94  94  95  95  95  95  96
##  [91]  96  96  97  97  97  97  98 100 100 100
hist(dist3)

stem(dist3)
## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##    7 | 000000011112222334444
##    7 | 5556666677778889
##    8 | 01222444
##    8 | 555667777888889999999
##    9 | 0001122222223333344
##    9 | 555566677778
##   10 | 000
frecuencia3 <- table(dist3)
sort(table(dist3))
## dist3
##  79  80  81  98  73  86  91  94  75  78  82  84  85  90  96 100  71  72  74  77 
##   1   1   1   1   2   2   2   2   3   3   3   3   3   3   3   3   4   4   4   4 
##  87  95  97  76  88  93  70  89  92 
##   4   4   4   5   5   5   7   7   7

Medias de cada distribucion

media1 <- mean(dist1)
media1
## [1] 85.49
media2 <- mean(dist2)
media2
## [1] 85.71
media3 <- mean(dist3)
media3
## [1] 84.3

Medianas de cada distribucion

median(dist1)
## [1] 85
median(dist2)
## [1] 86
median(dist3)
## [1] 86.5

Modas de cada distribucion

frecuencia1[which.max(table(dist1))]
## 95 
##  6
frecuencia2[which.max(table(dist2))]
## 100 
##   7
frecuencia3[which.max(table(dist3))]
## 70 
##  7

Cuartiles de cada distribucion

cuartil1 <- quantile (dist1, prob = c(0.25, 0.50, 0.75))
cuartil1
## 25% 50% 75% 
##  78  85  93
cuartil2 <- quantile (dist2, prob = c(0.25, 0.50, 0.75))
cuartil2
## 25% 50% 75% 
##  77  86  94
cuartil3 <- quantile (dist3, prob = c(0.25, 0.50, 0.75))
cuartil3
##  25%  50%  75% 
## 76.0 86.5 92.0

Rango de cada distribucion

paste("100 - 70 = 30")
## [1] "100 - 70 = 30"

Rango intercuartilico de cada distribucion

paste("Rango intercuartil de distribucion 1  93 - 78 = 15")
## [1] "Rango intercuartil de distribucion 1  93 - 78 = 15"
paste("Rango intercuartil de distribucion 2  94 - 77 = 17")
## [1] "Rango intercuartil de distribucion 2  94 - 77 = 17"
paste("Rango intercuartil de distribucion 3  92 - 76 = 16")
## [1] "Rango intercuartil de distribucion 3  92 - 76 = 16"

Varianza de cada distribuciĆ³n

var(dist1)
## [1] 73.82818
var(dist2)
## [1] 87.96556
var(dist3)
## [1] 83.86869

Desviaciones estandar de cada distribucion

desviacion1 <- sd(dist1)
desviacion1
## [1] 8.592333
desviacion2 <- sd(dist2)
desviacion2
## [1] 9.378995
desviacion3 <- sd(dist3)
desviacion3
## [1] 9.157985

Coeficiente de Variacion

coeficienteVariacion1 <- (desviacion1/media1)*100
coeficienteVariacion1
## [1] 10.05069
coeficienteVariacion2 <- (desviacion2/media2)*100
coeficienteVariacion2
## [1] 10.94271
coeficienteVariacion3 <- (desviacion3/media3)*100
coeficienteVariacion3
## [1] 10.86356

Diagrama de Dispercion

plot(dist1, col = "red")

plot(dist2, col = "blue")

plot(dist3, col = "green")