diff options
| author | Ben Green <bgreen@g.harvard.edu> | 2015-09-29 18:36:38 -0400 |
|---|---|---|
| committer | Ben Green <bgreen@g.harvard.edu> | 2015-09-29 18:36:38 -0400 |
| commit | 3969a594c49e58aafe04ff352b02d0d61eb228cf (patch) | |
| tree | 279dc1f33991d6547a074d3c63b012797de2830a /R Scripts/fit-background.R | |
| parent | fdaeb646dc262807b7bca60354649e15baa60d31 (diff) | |
| download | criminal_cascades-3969a594c49e58aafe04ff352b02d0d61eb228cf.tar.gz | |
finalizing plots!
Diffstat (limited to 'R Scripts/fit-background.R')
| -rw-r--r-- | R Scripts/fit-background.R | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/R Scripts/fit-background.R b/R Scripts/fit-background.R index a5f935b..49fb64d 100644 --- a/R Scripts/fit-background.R +++ b/R Scripts/fit-background.R @@ -30,8 +30,9 @@ 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.5,col='#1f78b4', - xlab='Day',ylab='Number of Infections') +plot(days,counts,pch=20,cex=0.5,col='#1f78b4',xaxt='n', + xlab='',ylab='Number of shootings',cex.axis=0.6,cex.lab=0.6) curve(fit(x, lambda=co["lambda"], A=co["A"], phi=co["phi"]), add=TRUE ,lwd=3, col="#1a9850") +axis(1,at=seq(1,max(days),365),lab=2006:2014,cex.axis=.6) |