Son el conjunto de datos de número aleatorios

datos <- c(32, 18, 21, 23, 55, 58, 7, 20, 16, 22, 13, 59, 61, 25, 22, 24, 99, 80, 38, 70, 77, 64, 50, 92, 27, 41, 38, 45, 11, 14, 20, 4, 22, 44, 9, 1, 12, 98, 69, 1, 7, 14, 77, 7, 15, 3, 15, 16, 10, 5, 17, 35, 8, 88, 1, 2, 89, 24, 6, 72, 96, 4, 29, 64, 28, 12, 19, 31, 68, 92, 66, 6)

datos
##  [1] 32 18 21 23 55 58  7 20 16 22 13 59 61 25 22 24 99 80 38 70 77 64 50
## [24] 92 27 41 38 45 11 14 20  4 22 44  9  1 12 98 69  1  7 14 77  7 15  3
## [47] 15 16 10  5 17 35  8 88  1  2 89 24  6 72 96  4 29 64 28 12 19 31 68
## [70] 92 66  6

Determinar n además de máximos y mínimos de los datos

n <- length(datos)
maximo <- max(datos)
minimo <- min(datos)

n
## [1] 72
maximo
## [1] 99
minimo
## [1] 1

Determinando frecuencias y frecuencia relativa en los datos

frecuencia <- table(datos)

freq.relativa<-(frecuencia)/margin.table(frecuencia)

frecuencia
## datos
##  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 
##  3  1  1  2  1  2  3  1  1  1  1  2  1  2  2  2  1  1  1  2  1  3  1  2  1 
## 27 28 29 31 32 35 38 41 44 45 50 55 58 59 61 64 66 68 69 70 72 77 80 88 89 
##  1  1  1  1  1  1  2  1  1  1  1  1  1  1  1  2  1  1  1  1  1  2  1  1  1 
## 92 96 98 99 
##  2  1  1  1
freq.relativa
## datos
##          1          2          3          4          5          6 
## 0.04166667 0.01388889 0.01388889 0.02777778 0.01388889 0.02777778 
##          7          8          9         10         11         12 
## 0.04166667 0.01388889 0.01388889 0.01388889 0.01388889 0.02777778 
##         13         14         15         16         17         18 
## 0.01388889 0.02777778 0.02777778 0.02777778 0.01388889 0.01388889 
##         19         20         21         22         23         24 
## 0.01388889 0.02777778 0.01388889 0.04166667 0.01388889 0.02777778 
##         25         27         28         29         31         32 
## 0.01388889 0.01388889 0.01388889 0.01388889 0.01388889 0.01388889 
##         35         38         41         44         45         50 
## 0.01388889 0.02777778 0.01388889 0.01388889 0.01388889 0.01388889 
##         55         58         59         61         64         66 
## 0.01388889 0.01388889 0.01388889 0.01388889 0.02777778 0.01388889 
##         68         69         70         72         77         80 
## 0.01388889 0.01388889 0.01388889 0.01388889 0.02777778 0.01388889 
##         88         89         92         96         98         99 
## 0.01388889 0.01388889 0.02777778 0.01388889 0.01388889 0.01388889
freq.porcentual <- freq.relativa * 100 # Saca en porcentajes

freq.porcentual
## datos
##        1        2        3        4        5        6        7        8 
## 4.166667 1.388889 1.388889 2.777778 1.388889 2.777778 4.166667 1.388889 
##        9       10       11       12       13       14       15       16 
## 1.388889 1.388889 1.388889 2.777778 1.388889 2.777778 2.777778 2.777778 
##       17       18       19       20       21       22       23       24 
## 1.388889 1.388889 1.388889 2.777778 1.388889 4.166667 1.388889 2.777778 
##       25       27       28       29       31       32       35       38 
## 1.388889 1.388889 1.388889 1.388889 1.388889 1.388889 1.388889 2.777778 
##       41       44       45       50       55       58       59       61 
## 1.388889 1.388889 1.388889 1.388889 1.388889 1.388889 1.388889 1.388889 
##       64       66       68       69       70       72       77       80 
## 2.777778 1.388889 1.388889 1.388889 1.388889 1.388889 2.777778 1.388889 
##       88       89       92       96       98       99 
## 1.388889 1.388889 2.777778 1.388889 1.388889 1.388889

Determinano media

media <- mean(datos)
media
## [1] 35.11111

Graficar los datos Plot

plot(datos)

Graficar la frecuencia

plot(frecuencia)

Fin de la práctica