diff options
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 |