rm(list = ls())
library(rio)
data1=import("dataAdmit.xlsx")

lk="https://docs.google.com/spreadsheets/d/e/2PACX-1vSIeBRLEmHacvpWqAsi5W6B091eeZa0XN6wA3zww1qZlltK-EWCIkLN6J3_FkYvUDElViR67Rkx_80a/pub?gid=0&single=true&output=csv"
mydata <- read.csv(lk)

data2=import("d2.xlsx")
str(data2)

## 'data.frame':    26574 obs. of  7 variables:
##  $ sex            : chr  "male" "male" "male" "male" ...
##  $ padreSector    : chr  "Agricultura" "Agricultura" "NoFijo" "Agricultura" ...
##  $ fechaNacimiento: chr  "1853-05-23" "1853-07-19" "1861-11-17" "1872-11-16" ...
##  $ edadDejaEstudio: num  15 15 15 15 0.559 0.315 15 15 15 15 ...
##  $ muere          : num  0 0 0 0 1 1 0 0 0 0 ...
##  $ naceFueraMatri : chr  "no" "no" "no" "no" ...
##  $ madreEdad      : num  35 30.6 29.3 41.2 42.1 ...

data2=na.omit(data2)

data2$sex=as.factor(data2$sex)
data2$padreSector=as.factor(data2$padreSector)
data2$naceFueraMatri=as.factor(data2$naceFueraMatri)
levels(data2$naceFueraMatri)

## [1] "no"  "yes"

is.double(data2$madreEdad)

## [1] TRUE

data3=import("d5.xlsx")

## New names:
## • `` -> `...1`
## • `` -> `...2`
## • `` -> `...3`
## • `` -> `...4`
## • `` -> `...5`
## • `` -> `...6`
## • `` -> `...7`
## • `` -> `...8`
## • `` -> `...9`
## • `` -> `...10`
## • `` -> `...11`
## • `` -> `...12`
## • `` -> `...13`
## • `` -> `...14`
## • `` -> `...15`
## • `` -> `...16`
## • `` -> `...17`
## • `` -> `...18`
## • `` -> `...19`
## • `` -> `...20`
## • `` -> `...21`
## • `` -> `...22`
## • `` -> `...23`
## • `` -> `...24`
## • `` -> `...25`
## • `` -> `...26`

data3[,c(18:26)]=NULL