From 3969a594c49e58aafe04ff352b02d0d61eb228cf Mon Sep 17 00:00:00 2001 From: Ben Green Date: Tue, 29 Sep 2015 18:36:38 -0400 Subject: finalizing plots! --- R Scripts/fit-background.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'R Scripts/fit-background.R') 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) -- cgit v1.2.3-70-g09d2