if (FALSE) {
timss4g <- timssg4.select.merge(folder=getwd(),
countries=c("AUS", "BHR", "ARM", "CHL"),
student =c("ITSEX", "ASDAGE", "ASBGSLM", "ASDGSLM"),
home = c("ASDHEDUP", "ASDHENA"),
school =c("ACDG03", "ACDGENS"))
}
Run the code above in your browser using DataLab