diff options
| author | Ben Green <bgreen@g.harvard.edu> | 2015-09-14 23:19:34 -0400 |
|---|---|---|
| committer | Ben Green <bgreen@g.harvard.edu> | 2015-09-14 23:19:37 -0400 |
| commit | 58faa01748fe0e6f6d040d1296266d17bd7a3543 (patch) | |
| tree | b1a2bf0709ec3d4c252d90c4dba8e42b3057c91b /R Scripts/prior-arrests-by-day.R | |
| parent | ab0b1f3cefedb35327a19ec1b6afd560bfdf802d (diff) | |
| download | criminal_cascades-58faa01748fe0e6f6d040d1296266d17bd7a3543.tar.gz | |
prediction and plotting cascades
Diffstat (limited to 'R Scripts/prior-arrests-by-day.R')
| -rw-r--r-- | R Scripts/prior-arrests-by-day.R | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/R Scripts/prior-arrests-by-day.R b/R Scripts/prior-arrests-by-day.R index 30d458c..604d85c 100644 --- a/R Scripts/prior-arrests-by-day.R +++ b/R Scripts/prior-arrests-by-day.R @@ -10,8 +10,6 @@ arrests$arrest_date = as.Date(arrests$arrest_date,format='%m/%d/%Y') arrests$arrest_day = as.numeric(arrests$arrest_date - start_date) arrests$id = match(arrests$ir2, lcc_verts$ir_no) -arrest_days = function(arr,i){return(arr$arrest_day[arr$id==i)} - prior_arrests = sapply(1:vcount(lcc),function(x) NULL) for(i in 1:vcount(lcc)){ if(i%%10000==0) print(i) |