#save
write.epmGrid(tamiasEPM, paste0(tempdir(), '/tamiasEPM'))
# read back in
tamiasEPM <- read.epmGrid(paste0(tempdir(), '/tamiasEPM.rds'))
# delete the file
unlink(paste0(tempdir(), '/tamiasEPM.rds'))
Run the code above in your browser using DataLab