Tarea 1

library(pacman)
p_load("datasets","DT","fdth")

data("beaver1")

## Warning in data("beaver1"): data set 'beaver1' not found

dim(beaver1)

## [1] 114   4

datatable(beaver1)

table(beaver1$day)

## 
## 346 347 
##  91  23

summary(beaver1)

##       day             time             temp           activ        
##  Min.   :346.0   Min.   :   0.0   Min.   :36.33   Min.   :0.00000  
##  1st Qu.:346.0   1st Qu.: 932.5   1st Qu.:36.76   1st Qu.:0.00000  
##  Median :346.0   Median :1415.0   Median :36.87   Median :0.00000  
##  Mean   :346.2   Mean   :1312.0   Mean   :36.86   Mean   :0.05263  
##  3rd Qu.:346.0   3rd Qu.:1887.5   3rd Qu.:36.96   3rd Qu.:0.00000  
##  Max.   :347.0   Max.   :2350.0   Max.   :37.53   Max.   :1.00000

boxplot(beaver1)
abline(h = mean(beaver1$day),col = "yellow")

var(beaver1$day)

## [1] 0.1624748

sd(beaver1$day)

## [1] 0.4030816

tabla <- fdt(beaver1$day, breaks = "Sturges")

plot(tabla, type="fh")

plot(tabla, type="rfh")

plot(tabla, type="cfh")

plot(tabla, type="fp")

plot(tabla, type="rfp")

plot(tabla, type="cfp")