Análisis para la Casen del 2017. Estudio del registro 3.

I Leemos la data:

dataset_2017 <- readRDS(file = "casen_2017_c.rds")

II El ingreso de la ocupacion principal (yoprcorh) es una parte del ingreso del trabajo (ytrabajoCor)

options(scipen=999)
w <- dataset_2017$yoprcorh[3] 
w
## [1] 600000
d <- dataset_2017$ytrabajocorh[3] 
d
## [1] 772000

III El ingreso autónomo es la suma del ingreso del trabajo (ytrabajocorh) más otro ingreso autónomo (yoautcorh). En la Casen del 2017, otro ingreso autónomo el hogar no existe como tal, pero se deduce, se incluye entre el rango 689:713 (yta2h (Trabajos de antes - No asalariados) y ydimh (Devolución de impuestos))

Otro ingreso autónomo es:

FRAMETRUE <- rowSums(dataset_2017[, 689:713], na.rm = TRUE)
FRAMETRUE[3]
## [1] 220000

IV El ingreso autónomo (yautcorh) es la suma del ingreso del trabajo (ytrabajocor) mas otro ingreso autónomo:

options(scipen=999)
g <- dataset_2017$ytrabajocorh[3] + FRAMETRUE[3]
g
## [1] 992000
q <- dataset_2017$yautcorh[3] 
q
## [1] 992000

V La suma del subsidio monetario más el ingreso autónomo da el ingreso monetario:

w <- dataset_2017$ysubh[3] + dataset_2017$yautcorh[3]
w
## [1] 1087932
y <- dataset_2017$ymonecorh[3]
y
## [1] 1087932

VI La suma del ingreso monetario mas el alquiler imputado da el ingreso total:

c <- dataset_2017$ytotcorh[3]
c
## [1] 1267932
al <-  dataset_2017$ymonecorh[3] +dataset_2017$yaimcorh[3]
al
## [1] 1267932