diff options
| author | Ben Green <ben@SEASITs-MacBook-Pro.local> | 2015-07-02 00:41:49 -0400 |
|---|---|---|
| committer | Ben Green <ben@SEASITs-MacBook-Pro.local> | 2015-07-02 00:41:49 -0400 |
| commit | 375f29ab4306821c888fd9ef0637f9ab2879e375 (patch) | |
| tree | 30d1c40e429abda8c9cbae953b719543f9cd9cc8 /R Scripts/predict-victims-plots.R | |
| parent | 8e09ca6ca68c71bdab65525b529e2adfa281823c (diff) | |
| download | criminal_cascades-375f29ab4306821c888fd9ef0637f9ab2879e375.tar.gz | |
in which the model works!!
Diffstat (limited to 'R Scripts/predict-victims-plots.R')
| -rw-r--r-- | R Scripts/predict-victims-plots.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/R Scripts/predict-victims-plots.R b/R Scripts/predict-victims-plots.R index 2ac62c8..553aa89 100644 --- a/R Scripts/predict-victims-plots.R +++ b/R Scripts/predict-victims-plots.R @@ -1,5 +1,5 @@ ##### Plot results -hist(correct_rank3,150,xlim=c(0,vcount(lcc)),col=rgb(0,0,1,1/8), +hist(correct_rank1,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) @@ -36,6 +36,7 @@ legend("topleft", inset=0.05, c("Demographics Model", "Cascade Model", "Combined Model"), fill=c(rgb(0,0,1,1/2),rgb(1,0,0,1/2),rgb(0,1,0,1/2))) box(which='plot') + par(new=T) counts = counts/(100/nvics) barplot(counts, |