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