Browse Source

tweaked README

pull/4/head
Bob Rudis 6 years ago
parent
commit
b41b20c0fa
2 changed files with 20 additions and 7 deletions
  1. +2
    -2
      README.Rmd
  2. +18
    -5
      README.md

+ 2
- 2
README.Rmd View File

@ -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()


+ 18
- 5
README.md View File

@ -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/")


Loading…
Cancel
Save