# load(file.choose())
# write.table(cbind(1:281, nydf$latitude, nydf$longitude), 
#             file = "~/Desktop/coords.txt", sep = " ", row.names = FALSE, col.names = FALSE)
# write.table(cbind(1:281, 2000, nydf$population), file = "~/Desktop/pop.txt", sep = " ", col.names = FALSE, row.names = FALSE)
# write.table(cbind(1:281, floor(nydf$cases), 2000), file = "~/Desktop/cases.txt", sep = " ", col.names = FALSE, row.names = FALSE)