R/pisa.table.R

In dickli/intsvy2: International Assessment Data Manager 2

pisa.table <- 
function(variable, by, data, export=FALSE, name= "output", folder=getwd()) {
  output <- intsvy.table(variable, by, data, config=pisa_conf)
  
  if (export)  {
    write.csv(output, file=file.path(folder, paste(name, ".csv", sep="")))
  }
  
  return(output)
}

pisa2015.table <- 
  function(variable, by, data, export=FALSE, name= "output", folder=getwd()) {
    output <- intsvy.table(variable, by, data, config=pisa2015_conf)
    
    if (export)  {
      write.csv(output, file=file.path(folder, paste(name, ".csv", sep="")))
    }
    
    return(output)
  }