##Introducci?n a R 
##Modulo 3
##Video 4

#install.packages("tibble")
#install.packages("car")
library(tibble) #cargar paquete tibble para poder utilizar este tipo de estructura
library(car) #cargar paquete car de donde sacaremos datos a utilizar

data(Chile)
(df <- Chile)
(tbl <- as_tibble(Chile))

class(df) #para chequear que es un data frame
class(tbl) #para chequear que es un tbl... y un data frame

dim(tbl) 
str(tbl) 
glimpse(tbl) #?glimpse
summary(tbl)

#?Cuantas personas tenian intension de votar por el Si?
SI <- length(tbl$vote[tbl$vote == "Y"])
TOTAL <- nrow(tbl)

(Porcentaje <- SI/TOTAL*100)