# Folder de trabajo
setwd("~/pye1pm")

# Asignacion #3 Utilizando conjunto de datos de R 
# para un analisis exploratorio de datos

# Para este ejemplo en particular utilizamos datos de castores

# Paquete
library(pacman)


## Datos acerca de castores

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

## Descripcion de los datos

# Conociendo los datos

head(castores) #Esto nos va dar las primeras 6 filas
##   day time  temp activ
## 1 346  840 36.33     0
## 2 346  850 36.34     0
## 3 346  900 36.35     0
## 4 346  910 36.42     0
## 5 346  920 36.55     0
## 6 346  930 36.69     0
dim(castores) #Cantidad de filas y columnas
## [1] 114   4
## Medidas de tendencia central
summary(castores)
##       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
# valor minimo, primer cuartil mediana, media, tercer cuartil

## grafico de caja y bigotes de la temperatura de los castores

boxplot(castores$temp)

# Medidas de dispersion de la temperatura de los castores
#varianza
var(castores$temp)
## [1] 0.03741196
#Desviacion estandar
sd(castores$temp)
## [1] 0.1934217
#grafico de dispersion
plot(castores$temp)

# Asignacion: Añadir analisis de distribucion de frecuencias
#tablas e histogramas.