fix bandwidth to 52 weeks

project-aero · Feb 26, 2018 · d79ae2d · d79ae2d
1 parent ff803be
commit d79ae2d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/eric-figs/fig1.R b/eric-figs/fig1.R
@@ -51,8 +51,8 @@ tychoL1.measles.CA.cases.imp.zoo <- zoo(tychoL1.measles.CA$cases.imp,tychoL1.mea
 # Set windows -----------------------------------------------------
 
 ## Statistics bandwidth
-bandwidth_weeks <- 54
-bandwidth <- bandwidth_weeks * 7  # 104 weeks = 104*7 days
+bandwidth_weeks <- 52
+bandwidth <- bandwidth_weeks * 7 # days
 
 ## date of peak of epidemic
 peakdate <- cdcweekToDate(year=1990, week=34, weekday=6)

diff --git a/eric-figs/output/plots/fig1.pdf b/eric-figs/output/plots/fig1.pdf