Asignacion no.1:

La informacion con la que se trabajara sera de la tasa de asesinatos en el pais de japon del 2009-2018 respectivamente

  TASAASESINATOSJPN=c(506,465,442,429,370,395,363,362,306,334)

Tablas de distribuciones de frecuencia

library(fdth)
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
  tabla=fdt(TASAASESINATOSJPN)
  tabla
##       Class limits f  rf rf(%) cf cf(%)
##   [302.94,344.564) 2 0.2    20  2    20
##  [344.564,386.188) 3 0.3    30  5    50
##  [386.188,427.812) 1 0.1    10  6    60
##  [427.812,469.436) 3 0.3    30  9    90
##   [469.436,511.06) 1 0.1    10 10   100

Histogramas y poligonos de distribuciones de frecuencia

library(fdth)
  plot(tabla,type = "fh") #Histograma de frecuencia absoluta

  plot(tabla,type = "fp") #Poligono de frecuencia absoluta

  plot(tabla,type = "rfh") #Histograma de frecuencia relativa 

  plot(tabla,type = "rfp") #Poligono de frecuencia relativa

  plot(tabla,type = "cfh") #Histograma de frecuencia acumulada

  plot(tabla,type = "cfp") #Poligono de frecuencia acumulada

  hist(TASAASESINATOSJPN)

Medidas de tendencia central

library(modeest)
## 
## Attaching package: 'modeest'
## The following object is masked from 'package:fdth':
## 
##     mfv
mean(TASAASESINATOSJPN) #Media
## [1] 397.2
median(TASAASESINATOSJPN) #Mediana
## [1] 382.5
mlv(TASAASESINATOSJPN,method = "mfv") #Moda
##  [1] 306 334 362 363 370 395 429 442 465 506
summary(TASAASESINATOSJPN) #Cuartil
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   306.0   362.2   382.5   397.2   438.8   506.0
boxplot(TASAASESINATOSJPN) #Caja y bigote