Control 2.2 AD

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

#Control 2.2

###P1

library(ggplot2)
library(data.table)
library(utf8)
library(leaflet)
library(tidyverse)

###P2

data1<-fread("EOD_Trabajada.csv")

###P3

data1<-data1[,identificador:=Hogar+id]
data1<-data1[!duplicated(data1$identificador)]

###P4

hist(data1$Edad)

###P5

data1<-data1[!data1$TiempoViaje>200]