diff options
| author | Ben Green <bgreen@g.harvard.edu> | 2015-09-13 23:52:40 -0400 |
|---|---|---|
| committer | Ben Green <bgreen@g.harvard.edu> | 2015-09-13 23:52:42 -0400 |
| commit | f23e9e5da58d1d19913703e11f7ff96a7adff96b (patch) | |
| tree | b9459b3670cdf125f8bdf0888288be3a0a1357a8 /R Scripts/generate-dag-dat-unweighted.R | |
| parent | fffb68b515a5cae198d8b756b562ddea6f2c814c (diff) | |
| download | criminal_cascades-f23e9e5da58d1d19913703e11f7ff96a7adff96b.tar.gz | |
updated prediction code for new model and data format
Diffstat (limited to 'R Scripts/generate-dag-dat-unweighted.R')
| -rwxr-xr-x | R Scripts/generate-dag-dat-unweighted.R | 8 |
1 files changed, 8 insertions, 0 deletions
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))) + |