diff options
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) |