From f23e9e5da58d1d19913703e11f7ff96a7adff96b Mon Sep 17 00:00:00 2001 From: Ben Green Date: Sun, 13 Sep 2015 23:52:40 -0400 Subject: updated prediction code for new model and data format --- R Scripts/generate-dag-dat-unweighted.R | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'R Scripts/generate-dag-dat-unweighted.R') diff --git a/R Scripts/generate-dag-dat-unweighted.R b/R Scripts/generate-dag-dat-unweighted.R index 06988b9..7b874d6 100755 --- a/R Scripts/generate-dag-dat-unweighted.R +++ b/R Scripts/generate-dag-dat-unweighted.R @@ -57,3 +57,11 @@ vic_times_lcc = lcc_verts[,c('name','nonfatal_day_1','nonfatal_day_2', 'nonfatal_day_5','fatal_day')] save(vic_times_lcc, file='vic_times_lcc.RData') write.csv(vic_times_lcc, file='vic_times_lcc.csv') + +sum(sum(!is.na(vic_times_lcc$fatal_day)), + sum(!is.na(vic_times_lcc$nonfatal_day_1)), + sum(!is.na(vic_times_lcc$nonfatal_day_2)), + sum(!is.na(vic_times_lcc$nonfatal_day_3)), + sum(!is.na(vic_times_lcc$nonfatal_day_4)), + sum(!is.na(vic_times_lcc$nonfatal_day_5))) + -- cgit v1.2.3-70-g09d2