dir.create(file.path(tempdir(),"timssadv"),showWarnings = FALSE)
output <- file.path(tempdir(),"timssadv")
input <- system.file("extdata/timssadv", package = "ILSAmerge")
ILSAreadylocal(inputdir = input, outputdir = output, filetype = "zsav")
Run the code above in your browser using DataLab