if (FALSE) {
pisa <- pisa.select.merge(folder=getwd(),
school.file="INT_SCQ12_DEC03.sav",
student.file="INT_STU12_DEC03.sav",
parent.file="INT_PAQ12_DEC03.sav",
student= c("IMMIG", "ESCS", "ST04Q01", "ST61Q04", "ST62Q01", "ST08Q01"),
parent = c("PARINVOL", "PARSUPP"),
school = c("STRATIO", "SCHAUTON", "CLSIZE"),
countries = c("HKG", "USA", "SWE", "POL", "PER"))
}
Run the code above in your browser using DataLab