Práctica #1

library(modeest) # carga la biblioteca modeest 

## 
## This is package 'modeest' written by P. PONCET.
## For a complete list of functions, use 'library(help = "modeest")' or 'help.start()'.

Generar 100 datos del 15 al 50 aleatoriamente:

datos <- sample (15:50, size=100, replace = TRUE) # Generar 100 datos del 15-50 aleatoriamente

datos

##   [1] 50 42 19 27 49 36 34 45 25 44 26 45 25 30 35 22 41 29 29 21 41 31 26
##  [24] 18 42 47 18 30 19 20 30 31 32 39 26 36 31 23 36 44 41 34 24 43 46 18
##  [47] 28 46 48 34 42 37 19 50 28 29 32 31 45 43 32 38 32 47 43 37 37 31 34
##  [70] 18 35 24 42 19 21 31 25 50 50 33 39 18 27 29 45 16 31 15 21 17 48 35
##  [93] 18 41 50 20 45 44 48 49

Graficar los datos:

plot(datos)

Obtener el número mínimo, el máximo y la cantidad de datos.

n=length(datos) # En 'n' se guardará el número de datos.
n

## [1] 100

maximo=max(datos) # En 'maximo' se guardará el dato con el valor más alto.
maximo

## [1] 50

minimo=min(datos) # En 'minimo' se guardará el dato con el valor más bajo.
minimo

## [1] 15

Obtener la media, mediana y moda de los datos.

media=mean(datos) # Calcula la media
media

## [1] 33.47

mediana=median(datos) # Calcula la mediana
mediana

## [1] 32.5

mfv(datos) # Calcula la moda, exportando anteriormente el paquete modeest

## [1] 31

Obtener la frecuencia de los datos:

frecuencia=table(datos) # Se genera la frecuencia de cada uno de los datos.
frecuencia

## datos
## 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 
##  1  1  1  6  4  2  3  1  1  2  3  3  2  2  4  3  7  4  1  4  3  3  3  1  2 
## 41 42 43 44 45 46 47 48 49 50 
##  4  4  3  3  5  2  2  3  2  5

plot(frecuencia) # Genera una gráfica con la frecuencia de cada uno de los datos.

Obtener la frecuencia relativa y porcentual de los datos:

freq.relativa=(frecuencia)/margin.table(frecuencia) # Genera la frecuencia relativa de los datos.
freq.relativa

## datos
##   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29 
## 0.01 0.01 0.01 0.06 0.04 0.02 0.03 0.01 0.01 0.02 0.03 0.03 0.02 0.02 0.04 
##   30   31   32   33   34   35   36   37   38   39   41   42   43   44   45 
## 0.03 0.07 0.04 0.01 0.04 0.03 0.03 0.03 0.01 0.02 0.04 0.04 0.03 0.03 0.05 
##   46   47   48   49   50 
## 0.02 0.02 0.03 0.02 0.05

freq.porcentual=freq.relativa*100 # Genera la frecuencia porcentual de los datos.
freq.porcentual

## datos
## 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 
##  1  1  1  6  4  2  3  1  1  2  3  3  2  2  4  3  7  4  1  4  3  3  3  1  2 
## 41 42 43 44 45 46 47 48 49 50 
##  4  4  3  3  5  2  2  3  2  5