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/data-exploration.R | |
| parent | fffb68b515a5cae198d8b756b562ddea6f2c814c (diff) | |
| download | criminal_cascades-f23e9e5da58d1d19913703e11f7ff96a7adff96b.tar.gz | |
updated prediction code for new model and data format
Diffstat (limited to 'R Scripts/data-exploration.R')
| -rwxr-xr-x | R Scripts/data-exploration.R | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/R Scripts/data-exploration.R b/R Scripts/data-exploration.R index 11e33cf..f9617f9 100755 --- a/R Scripts/data-exploration.R +++ b/R Scripts/data-exploration.R @@ -38,3 +38,17 @@ non_vic_ids = which(V(lcc)$vic==FALSE) hist(as.numeric(V(lcc)$vic_date[vic_ids]),100,col='lightblue', xlab='Day of Study Period',main='Infections During the Study Period') +# n infections +sum(!is.na(lcc_verts$fatal_day)) +sum(!is.na(lcc_verts$nonfatal_day_1)) +sum(!is.na(lcc_verts$nonfatal_day_2)) +sum(!is.na(lcc_verts$nonfatal_day_3)) +sum(!is.na(lcc_verts$nonfatal_day_4)) +sum(!is.na(lcc_verts$nonfatal_day_5)) + +sum(sum(!is.na(lcc_verts$fatal_day)), + sum(!is.na(lcc_verts$nonfatal_day_1)), + sum(!is.na(lcc_verts$nonfatal_day_2)), + sum(!is.na(lcc_verts$nonfatal_day_3)), + sum(!is.na(lcc_verts$nonfatal_day_4)), + sum(!is.na(lcc_verts$nonfatal_day_5))) |