From b41b20c0fa519b553e573cc8af801d271f7d0524 Mon Sep 17 00:00:00 2001 From: Bob Rudis Date: Sun, 11 Jan 2015 11:05:41 -0500 Subject: [PATCH] tweaked README --- README.Rmd | 4 ++-- README.md | 23 ++++++++++++++++++----- 2 files changed, 20 insertions(+), 7 deletions(-) diff --git a/README.Rmd b/README.Rmd index b821682..dda92f8 100644 --- a/README.Rmd +++ b/README.Rmd @@ -45,10 +45,10 @@ library(statebins) packageVersion("cdcfluview") flu <- get_flu_data("hhs", sub_region=1:10, "ilinet", years=2014) +glimpse(flu) state_flu <- get_state_data() - -dplyr::glimpse(flu) +glimpse(state_flu) gg <- ggplot(flu, aes(x=WEEK, y=X..WEIGHTED.ILI, group=REGION)) gg <- gg + geom_line() diff --git a/README.md b/README.md index 23a4aae..2c348e2 100644 --- a/README.md +++ b/README.md @@ -60,10 +60,7 @@ packageVersion("cdcfluview") ``` r flu <- get_flu_data("hhs", sub_region=1:10, "ilinet", years=2014) - -state_flu <- get_state_data() - -dplyr::glimpse(flu) +glimpse(flu) ``` ## Observations: 140 @@ -85,6 +82,22 @@ dplyr::glimpse(flu) ## $ AGE.65 (int) 9, 108, 90, 46, 64, 78, 13, 8, 105, 1, 17, 110, 75, 64, 48, 100, 11, 12, 97, 3, 8, 108, 8... ``` r +state_flu <- get_state_data() +glimpse(state_flu) +``` + + ## Observations: 2809 + ## Variables: + ## $ STATENAME (chr) "Alabama", "Alabama", "Alabama", "Alabama", "Alabama", "Alabama", "Alabama", "Alabama"... + ## $ URL (chr) "http://adph.org/influenza/", "http://adph.org/influenza/", "http://adph.org/influenza... + ## $ WEBSITE (chr) "Influenza Surveillance", "Influenza Surveillance", "Influenza Surveillance", "Influen... + ## $ ACTIVITY.LEVEL (chr) "Level 1", "Level 1", "Level 1", "Level 1", "Level 1", "Level 1", "Level 5", "Level 10... + ## $ ACTIVITY.LEVEL.LABEL (chr) "Minimal", "Minimal", "Minimal", "Minimal", "Minimal", "Minimal", "Low", "High", "High... + ## $ WEEKEND (chr) "Oct-04-2014", "Oct-11-2014", "Oct-18-2014", "Oct-25-2014", "Nov-01-2014", "Nov-08-201... + ## $ WEEK (int) 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,... + ## $ SEASON (chr) "2014-15", "2014-15", "2014-15", "2014-15", "2014-15", "2014-15", "2014-15", "2014-15"... + +``` r gg <- ggplot(flu, aes(x=WEEK, y=X..WEIGHTED.ILI, group=REGION)) gg <- gg + geom_line() gg <- gg + facet_wrap(~REGION, ncol=2) @@ -116,7 +129,7 @@ library(testthat) date() ``` - ## [1] "Sun Jan 11 11:01:29 2015" + ## [1] "Sun Jan 11 11:04:51 2015" ``` r test_dir("tests/")