if (FALSE) {
# get list of files and their urls
res <- se_files()
res
tail(res)
# get data
x <- se_data(year = 2013, type = "details")
x
z <- se_data(year = 1988, type = "fatalities")
z
w <- se_data(year = 2003, type = "locations")
w
leg <- se_data(year = 2003, type = "legacy")
leg
}
Run the code above in your browser using DataLab