title: “PRACTICA 3” author: “FRANCISCO J RGUEZ” date: “1/3/2020” output: html_document

  set.seed(270419)

##GENERAR DATOS

dist1= sample(70:100, size =100, replace = T )
dist2= sample(70:100, size =100, replace = T )
dist3= sample(70:100, size =100, replace = T )

##MOSTRAR LOS DATOS DE CADA DISTRIBUCION

DISTRIBUCION 1

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

DISTRIBUCION 2

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

DISTRIBUCION 3

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

MEDIA DE CADA DISTRIBUCION

mean (dist1) ### DISTRIBUCION 1
## [1] 84.33
mean (dist2) ### DISTRIBUCION 2
## [1] 85.59
mean (dist3) ### DISTRIBUCION 3
## [1] 87.43

#MODA DE CADA DISTRIBUCION

library(modes)

modes(dist1) ###MODA DISTRIBUCION 1
##        [,1] [,2]
## Value    85   86
## Length    8    8
modes(dist2) ###MODA DISTRIBUCION 2
##        [,1]
## Value    74
## Length    7
modes(dist3)####MODA DISTRIBUCION 3
##        [,1] [,2]
## Value    84   98
## Length    7    7

MEDIANA DE CADA DISTRIBUCION

DISTRIBUCION 1

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

DISTRIBUCION 2

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

DISTRIBUCION 3

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

HISTOGRAMA DE CADA DISTRIBUCION

DISTRIBUCION 1

hist(dist1)

HISTOGRAMA DE CADA DISTRIBUCION

DISTRIBUCION 2

hist(dist2)

HISTOGRAMA DE CADA DISTRIBUCION

DISTRIBUCION 3

hist(dist3)

CUARTILES DE DISTRIBUCION 1

quantile (dist1,prob = c(0.25,0.50,0.75))
##   25%   50%   75% 
## 77.75 84.50 88.75

CUARTILES DE DISTRIBUCION 2

quantile (dist2,prob = c(0.25,0.50,0.75))
##   25%   50%   75% 
## 78.75 87.00 92.00

CUARTILES DE DISTRIBUCION 3

quantile (dist1,prob = c(0.25,0.50,0.75))
##   25%   50%   75% 
## 77.75 84.50 88.75

RANGO DE CADA COJUNTO DE DATOS

RANGO DE DISTRIBUCION 1

range(dist1)
## [1]  70 100

RANGO DE DISTRIBUCION 2

range(dist2)
## [1]  70 100

RANGO DE DISTRIBUCION 3

range(dist3)
## [1]  70 100

RANGO INTERCUARTILICO

RANGO INTERCUARTILICO DISTRIBUCION 1

IQR(dist1)
## [1] 11

RANGO INTERCUARTILICO DISTRIBUCION 2

IQR(dist2)
## [1] 13.25

RANGO INTERCUARTILICO DISTRIBUCION 3

IQR(dist3)
## [1] 15

####VARIANZA DE CADA DISTRIBUCION

VARIANZA DISTRIBUCION 1

var(dist1)
## [1] 71.33444

VARIANZA DISTRIBUCION 2

var(dist2)
## [1] 86.97162

VARIANZA DISTRIBUCION 3

var(dist3)
## [1] 80.02535

DESVIACION DE CADA DISTRIBUCION

####DESVIACION DISTRIBUCION 1

sd(dist1)
## [1] 8.445972

####DESVIACION DISTRIBUCION 2

sd(dist2)
## [1] 9.325857

####DESVIACION DISTRIBUCION 3

sd(dist3)
## [1] 8.945689

####COEFICIENTE DE VARIACION DE CADA DISTRIBUCION

##COEFICIENTE DE DISTRIBUCION 1

sd(dist1) / mean(dist1) *100
## [1] 10.01538

##COEFICIENTE DE DISTRIBUCION 2

sd(dist2) / mean(dist2) *100
## [1] 10.89597

##COEFICIENTE DE DISTRIBUCION 3

sd(dist3) / mean(dist3) *100
## [1] 10.23183

DIAGRAMA DE DISPERCION

DIAGRAMA DISTRIBUCION 1 PTOS ROJOS

plot(dist1, col = "red")

### DIAGRAMA DISTRIBUCION 2 PTOS AZULES

plot(dist2, col = "blue")

### DIAGRAMA DISTRIBUCION 3 PTOS VERDES

plot(dist1, col = "green")

VARIABILIDAD DE CADA DISTRIBUCION

##DISTRIBUCION 1

quantile (dist1, prob = c(0.60, 0.80))
## 60% 80% 
##  86  93

##DISTRIBUCION 2

quantile (dist2, prob = c(0.60, 0.80))
## 60% 80% 
##  89  95

##DISTRIBUCION 3

quantile (dist3, prob = c(0.60, 0.80))
##  60%  80% 
## 90.4 97.0