R/getAERMOD.R

getAERMOD <- function() {
 
  tf <- tempfile("aermod", fileext = ".zip")
  download.file("http://www.epa.gov/ttn/scram/models/aermod/aermod_exe.zip", tf)
  
  unzip(tf)
  
}
ebailey78/AERMODr documentation built on May 15, 2019, 7:28 p.m.