if (FALSE) {
timss8g <- timssg8.select.merge(folder=getwd(),
countries=c("AUS", "BHR", "ARM", "CHL"),
student =c("BSDGEDUP", "ITSEX", "BSDAGE", "BSBGSLM", "BSDGSLM"),
school =c("BCBGDAS", "BCDG03"))
}
Run the code above in your browser using DataLab