# 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')