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/analyze-cascades.R | |
| parent | fdaeb646dc262807b7bca60354649e15baa60d31 (diff) | |
| download | criminal_cascades-3969a594c49e58aafe04ff352b02d0d61eb228cf.tar.gz | |
finalizing plots!
Diffstat (limited to 'R Scripts/analyze-cascades.R')
| -rwxr-xr-x | R Scripts/analyze-cascades.R | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/R Scripts/analyze-cascades.R b/R Scripts/analyze-cascades.R index 02f9349..8bbb598 100755 --- a/R Scripts/analyze-cascades.R +++ b/R Scripts/analyze-cascades.R @@ -12,9 +12,10 @@ counts = rep(0,max(sizes)) counts[data$V1] = data$V2 pl = power.law.fit(counts) plot(sizes,counts,log='xy',pch=20,col='#1f78b4',xaxt='n',yaxt='n', - xlab='Size of Cascade', ylab='Number of Cascades', main='') -axis(1,at=c(1,5,10,50,100,500)) -axis(2,at=c(1,10,100,1000)) + xlab='Size of cascade', ylab='Number of cascades', main='', + cex.axis=0.6,cex.lab=0.6) +axis(1,at=c(1,5,10,50,100,500),cex.axis=0.6) +axis(2,at=c(1,10,100,1000),cex.axis=0.6) sizes_pl = displ$new(counts[counts>1]) est = estimate_xmin(sizes_pl) |