diff options
| author | Ben Green <bgreen@g.harvard.edu> | 2015-09-26 16:26:19 -0400 |
|---|---|---|
| committer | Ben Green <bgreen@g.harvard.edu> | 2015-09-26 16:26:21 -0400 |
| commit | 82bcc4121025f1212b3fcc07224cababa410f32a (patch) | |
| tree | fd16ecc292a6f0ae9dd11ab8ec6ad25693648935 /R Scripts/fit-background.R | |
| parent | 786714e2a9acdbd650092bcaf351128dbebd160d (diff) | |
| download | criminal_cascades-82bcc4121025f1212b3fcc07224cababa410f32a.tar.gz | |
demographic stats
Diffstat (limited to 'R Scripts/fit-background.R')
| -rw-r--r-- | R Scripts/fit-background.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R Scripts/fit-background.R b/R Scripts/fit-background.R index 5bc1ce0..a5f935b 100644 --- a/R Scripts/fit-background.R +++ b/R Scripts/fit-background.R @@ -30,8 +30,8 @@ res = nls(formula=fit_form, data=infs, start=list(lambda=3, A=2, phi=4)) co = coef(res); co plot(t) -plot(days,counts,pch=20,cex=0.9,col='#1f78b4', +plot(days,counts,pch=20,cex=0.5,col='#1f78b4', xlab='Day',ylab='Number of Infections') curve(fit(x, lambda=co["lambda"], A=co["A"], phi=co["phi"]), - add=TRUE ,lwd=5, col="#1b9e77") + add=TRUE ,lwd=3, col="#1a9850") |