diff options
| author | Ben Green <bgreen@g.harvard.edu> | 2015-09-13 23:52:40 -0400 |
|---|---|---|
| committer | Ben Green <bgreen@g.harvard.edu> | 2015-09-13 23:52:42 -0400 |
| commit | f23e9e5da58d1d19913703e11f7ff96a7adff96b (patch) | |
| tree | b9459b3670cdf125f8bdf0888288be3a0a1357a8 /R Scripts/predict-victims-plots.R | |
| parent | fffb68b515a5cae198d8b756b562ddea6f2c814c (diff) | |
| download | criminal_cascades-f23e9e5da58d1d19913703e11f7ff96a7adff96b.tar.gz | |
updated prediction code for new model and data format
Diffstat (limited to 'R Scripts/predict-victims-plots.R')
| -rw-r--r-- | R Scripts/predict-victims-plots.R | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/R Scripts/predict-victims-plots.R b/R Scripts/predict-victims-plots.R index 87b0a25..0655d28 100644 --- a/R Scripts/predict-victims-plots.R +++ b/R Scripts/predict-victims-plots.R @@ -1,16 +1,4 @@ ##### Plot results -hist(correct_rank2,150,xlim=c(0,vcount(lcc)),col=rgb(0,0,1,1/8), - xlab='Risk Ranking of Victims',main='') -hist(correct_rank1,150,xlim=c(0,vcount(lcc)),col=rgb(1,0,1,1/8),add=T) -hist(correct_rank2,150,xlim=c(0,vcount(lcc)),col=rgb(0,0,1,1/8),add=T) -legend("topright", c("Demographics Model", "Cascade Model"), - fill=c(rgb(1,0,1,1/8), rgb(0,0,1,1/8))) - -counts = matrix(c(colSums(correct_rank<(vcount(lcc)/1000))*100/nvics, - colSums(correct_rank<(vcount(lcc)/200))*100/nvics, - colSums(correct_rank<(vcount(lcc)/100))*100/nvics), - nrow=3, byrow=T) -plot(lambdas,counts[1,],log='x',type='l') correct_rank1 = correct_rank[,length(lambdas)] # demographics model correct_rank2 = correct_rank[,1] # cascade model |