From 8fadc0e29d96b4394a787e730c732ba21252147a Mon Sep 17 00:00:00 2001 From: Ben Green Date: Wed, 16 Sep 2015 12:56:17 -0400 Subject: updated prediction plotting scripts --- R Scripts/predict-victims.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'R Scripts/predict-victims.R') 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 -- cgit v1.2.3-70-g09d2