if (FALSE) {
download.file("https://scholar.harvard.edu/files/syang/files/gt2016-10-24.zip",
file.path(tempdir(), "gt2016-10-24.zip"))
unzip(file.path(tempdir(), "gt2016-10-24.zip"), exdir = tempdir())
gt.folder <- file.path(tempdir(), "2016-10-19")
argo2_main(
gt.folder=gt.folder,
ili.folder=system.file("regiondata", "ili20161121", package = "argo"),
population.file=system.file("regiondata", "Population.csv", package = "argo"),
gft.file=system.file("regiondata", "GFT.txt", package = "argo")
)
}
Run the code above in your browser using DataLab