Nothing
timssg4.select.merge <-
function(folder=getwd(), countries, student=c(), home, school, teacher) {
intsvy.select.merge(folder=folder, countries=countries, student=student, home=home, school=school, teacher = teacher,
config=timss4_conf)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.