if (FALSE) {
pirls <- intsvy.select.merge(folder= getwd(),
countries= c("AUS", "AUT", "AZE", "BFR"),
student= c("ITSEX", "ASDAGE", "ASBGSMR"),
home= c("ASDHEDUP", "ASDHOCCP", "ASDHELA", "ASBHELA"),
school= c("ACDGDAS", "ACDGCMP", "ACDG03"),
config = pirls_conf)
pirls <- intsvy.select.merge(folder= getwd(),
countries= c(36, 40, 31, 957),
student= c("ITSEX", "ASDAGE", "ASBGSMR"),
home= c("ASDHEDUP", "ASDHOCCP", "ASDHELA", "ASBHELA"),
school= c("ACDGDAS", "ACDGCMP", "ACDG03"),
config = pirls_conf)
timss8g <- intsvy.select.merge(folder= getwd(),
countries=c("AUS", "BHR", "ARM", "CHL"),
student =c("BSDGEDUP", "ITSEX", "BSDAGE", "BSBGSLM", "BSDGSLM"),
school=c("BCBGDAS", "BCDG03"), config = timss8_conf)
icils <- intsvy.select.merge(folder= getwd(),
countries=c("AUS", "POL", "SVK"),
student =c("S_SEX", "S_TLANG", "S_MISEI"),
school =c("IP1G02J", "IP1G03A"),
config = icils_conf)
pisa <- pisa.select.merge(folder= getwd(),
school.file="INT_SCQ12_DEC03.sav",
student.file="INT_STU12_DEC03.sav",
student= c("ST01Q01", "ST04Q01", "ESCS", "PARED"),
school = c("CLSIZE", "TCSHORT"),
countries = c("HKG", "USA", "SWE", "POL", "PER"))
}
Run the code above in your browser using DataLab