neiss: Data from National Electronic Injury Surveillance System

• CRAN: http://cran.r-project.org/web/packages/neiss/index.html
• GitHub: https://github.com/hadley/neiss

> library(neiss)

バージョン: 0.0.0.9000

injuries

> injuries %>% {
+   class(.) %>% print()
+   dplyr::glimpse(.)
+ }

[1] "tbl_df"     "tbl"        "data.frame"
Observations: 2,332,957
Variables: 18
$ case_num    (int) 90101432, 90101434, 90101435, 90101436, 90101437, ...
$ trmt_date   (date) 2009-01-01, 2009-01-01, 2009-01-01, 2009-01-01, 2...
$ psu         (dbl) 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61...
$ weight      (dbl) 15.3491, 15.3491, 15.3491, 15.3491, 15.3491, 15.34...
$ stratum     (chr) "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", ...
$ age         (dbl) 5.00, 51.00, 2.00, 20.00, 20.00, 47.00, 12.00, 21....
$ sex         (chr) "Male", "Male", "Female", "Male", "Male", "Female"...
$ race        (chr) "Other / Mixed Race", "White", "White", "White", "...
$ race_other  (chr) "hispanic", NA, NA, NA, NA, "asian", NA, NA, "unkn...
$ diag        (chr) "Strain, Sprain", "Contusion Or Abrasion", "Lacera...
$ diag_other  (chr) NA, NA, NA, NA, NA, NA, "paronychia toe", NA, NA, ...
$ body_part   (chr) "Neck", "Eyeball", "Face", "Toe", "Wrist", "Knee",...
$ disposition (chr) "Released", "Released", "Released", "Released", "R...
$ location    (chr) "Home", "Home", "Home", "Home", "Sports Or Recreat...
$ fmv         (chr) "No fire/flame/smoke", "No fire/flame/smoke", "No ...
$ prod1       (dbl) 1807, 899, 4057, 1884, 3283, 3283, 1659, 3265, 184...
$ prod2       (dbl) NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 3277, ...
$ narrative   (chr) "5 YOM ROLLING ON FLOOR DOING A SOMERSAULT AND SUS...

population

> population %>% {
+   class(.) %>% print()
+   dplyr::glimpse(.)
+ }

[1] "tbl_df"     "tbl"        "data.frame"
Observations: 2,720
Variables: 4
$ year (int) 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 200...
$ age  (int) 0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, ...
$ sex  (chr) "female", "male", "female", "male", "female", "male", "fe...
$ n    (int) 1881822, 1974134, 1856084, 1942607, 1856028, 1944116, 186...

products

> products %>% {
+   class(.) %>% print()
+   dplyr::glimpse(.)
+ }

[1] "tbl_df"     "tbl"        "data.frame"
Observations: 1,114
Variables: 2
$ code  (int) 101, 102, 103, 106, 107, 108, 110, 112, 113, 114, 115, 1...
$ title (chr) "washing machines without wringers or oth", "wringer was...