# share-data-cc.R childhood conditions and cs. in wave 7 gc() rm(list=ls()) setwd('C:/SHARE/R') options(warn=0) options(error=utils::recover) options(max.print=99999) closeAllConnections() source('share-libraries.R') source('share-functions.R') ######################################################################## # VARIABLES ######################################################################## varsno = "flag$|ub|raw|dot$|v1$|v2$|v3$|12$|13$|14$|15$|16$|17$|18$|19$|20$|21$|22$|23$|24$|25$|26$|27$|28$|29$|30$" ######################################################################## # wave 3 # CONDITIONS WHEN 10 # CS002 ROOMS WHEN TEN YEARS OLD # CS003 NUMBER OF PEOPLE LIVING IN HOUSEHOLD WHEN TEN # CS004 WHO LIVED IN HOUSEHOLD WHEN TEN # CS007 FEATURES OF ACCOMODATION WHEN TEN # CS008 NUMBER OF BOOKS WHEN TEN # CS009 OCCUPATION OF MAIN BREADWINNER WHEN TEN # CS010 RELATIVE POSITION TO OTHERS MATHEMATICALLY WHEN TEN # CS010a RELATIVE POSITION TO OTHERS LANGUAGE WHEN TEN setwd('C:/SHARE/Data/sharew3') d <- setDT(read.dta13(file = 'sharew3_rel7-0-0_cs.dta')) colnames(d) <- gsub("sl_cs", "cs", colnames(d)) d <- d[, grepl("mergeid$|^cs002|^cs003|^cs004|^cs007|^cs008|^cs009|^cs010", colnames(d)), with=FALSE] d3 <- f_wave(d, 'w3', 'mergeid') ######################################################################## # wave 7 # CONDITIONS WHEN 10 # CC002 ROOMS WHEN TEN YEARS OLD # CC003 NUMBER OF PEOPLE LIVING IN HOUSEHOLD WHEN TEN # CC004 WHO LIVED IN HOUSEHOLD WHEN TEN # CC007 FEATURES OF ACCOMODATION WHEN TEN # CC008 NUMBER OF BOOKS WHEN TEN # CC009 OCCUPATION OF MAIN BREADWINNER WHEN TEN # CC010 RELATIVE POSITION TO OTHERS MATHEMATICALLY WHEN TEN # CC010a RELATIVE POSITION TO OTHERS LANGUAGE WHEN TEN setwd('C:/SHARE/Data/sharew7') d <- setDT(read.dta13(file = 'sharew7_rel7-0-0_cc.dta')) d <- d[, grepl("mergeid$|^cc00|^cc010|^cc7", colnames(d)), with=FALSE] d7 <- f_wave(d, 'w7', 'mergeid') ################################################################################################################3 # MERGE WAVES ################################################################################################################3 rm(d) d <- merge(d3, d7, by = "mergeid", all = TRUE) f_cn(d, "_s7$|_w1$|_w2$|_w3$|_w4$|_w5$|_w6$|_w7$") colnames(d) <- gsub("_s7$|_w1$|_w2$|_w3$|_w4$|_w5$|_w6$|_w7$", "", colnames(d)) f_dt_NULL(d, varsno) unique(d, by="mergeid") d <- setorder(d, mergeid) d <- d[ !grepl('^no int', mergeid) ] d colnames(d) ################################################################################################################3 # SAVE DATA ################################################################################################################3 setwd('C:/SHARE/R/data') fwrite(d, file = "data-raw-cc.csv", na=NA) dcz <- d[ grepl('CZ', mergeid) ] fwrite(dcz, file = "data-raw-cc-CZ.csv", na=NA) cat("Data saved", "\n") setwd('C:/SHARE/R')