diff options
| author | Ben Green <bgreen@g.harvard.edu> | 2015-09-16 12:56:17 -0400 |
|---|---|---|
| committer | Ben Green <bgreen@g.harvard.edu> | 2015-09-16 12:56:19 -0400 |
| commit | 8fadc0e29d96b4394a787e730c732ba21252147a (patch) | |
| tree | 267bbe3a499afd5de501fbe3ad0aefa2f9e990a0 /R Scripts/predict-victims.R | |
| parent | 0ed0af6356b6ca962725d7a8bc4a07aad2daf437 (diff) | |
| download | criminal_cascades-8fadc0e29d96b4394a787e730c732ba21252147a.tar.gz | |
updated prediction plotting scripts
Diffstat (limited to 'R Scripts/predict-victims.R')
| -rw-r--r-- | R Scripts/predict-victims.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R Scripts/predict-victims.R b/R Scripts/predict-victims.R index 7caaf13..3a531db 100644 --- a/R Scripts/predict-victims.R +++ b/R Scripts/predict-victims.R @@ -48,7 +48,7 @@ days = Reduce(union, list(lcc_verts$fatal_day,lcc_verts$nonfatal_day_1, days = days[!is.na(days)] days = sort(days) days = split(days, ceiling(seq_along(days)/92)) -lambdas = c(0, exp(seq(log(0.0000001), log(.95), length.out=100)), 1) +lambdas = c(0, exp(seq(log(0.0001), log(0.01), length.out=100)), 1) ##### Loop through days correct_rank = c() @@ -106,4 +106,4 @@ for(i in 1:length(days)){ print(proc.time()-ptm) } -# save(correct_rank, file='Results/correct_rank_91415.RData')
\ No newline at end of file +# save(correct_rank, file='Results/correct_rank_91515.RData')
\ No newline at end of file |