diff options
| author | Ben Green <bgreen@g.harvard.edu> | 2015-09-09 20:27:12 -0400 |
|---|---|---|
| committer | Ben Green <bgreen@g.harvard.edu> | 2015-09-09 20:27:15 -0400 |
| commit | 717e7f2edda52100406d17826bd617b7915c5daf (patch) | |
| tree | a3501a0132e2d9024d8a0eb5afe0771311404b34 /R Scripts/generate-dag-dat-unweighted.R | |
| parent | 26c65bfeeb22a46e6b688ea3765b9a6e0479f748 (diff) | |
| download | criminal_cascades-717e7f2edda52100406d17826bd617b7915c5daf.tar.gz | |
updated R scripts
Diffstat (limited to 'R Scripts/generate-dag-dat-unweighted.R')
| -rwxr-xr-x | R Scripts/generate-dag-dat-unweighted.R | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/R Scripts/generate-dag-dat-unweighted.R b/R Scripts/generate-dag-dat-unweighted.R index 61db26c..06988b9 100755 --- a/R Scripts/generate-dag-dat-unweighted.R +++ b/R Scripts/generate-dag-dat-unweighted.R @@ -1,12 +1,12 @@ library(igraph) -setwd("~/Documents/Violence Cascades/") -load('Raw Data/lcc.RData') +setwd("~/Documents/Violence Cascades/Raw Data/") +load('lcc.RData') library(foreach) library(doMC) registerDoMC(cores=4) -lcc2 = remove.edge.attribute(lcc,'weight') +lcc2 = lcc#remove.edge.attribute(lcc,'weight') vics = split(vic_ids, ceiling(seq_along(vic_ids)/500)) dag_dat_lcc = c() for(i in 1:length(vics)){ @@ -43,8 +43,8 @@ for(i in 1:length(vics)){ colnames(dag_dat_lcc) = c('from','to','t1','dist') rownames(dag_dat_lcc) = NULL -save(dag_dat_lcc, file='Results/dag_dat_lcc.RData') -write.csv(dag_dat_lcc, file='Results/dag_dat_lcc.csv') +save(dag_dat_lcc, file='dag_dat_lcc.RData') +write.csv(dag_dat_lcc, file='dag_dat_lcc.csv') # dag_dat_vics = dag_dat_lcc[!is.na(dag_dat_lcc$t2),] # save(dag_dat_lcc_vics, file='Results/dag_dat_lcc_vics.RData') @@ -55,5 +55,5 @@ write.csv(dag_dat_lcc, file='Results/dag_dat_lcc.csv') vic_times_lcc = lcc_verts[,c('name','nonfatal_day_1','nonfatal_day_2', 'nonfatal_day_3','nonfatal_day_4', 'nonfatal_day_5','fatal_day')] -save(vic_times_lcc, file='Results/vic_times_lcc.RData') -write.csv(vic_times_lcc, file='Results/vic_times_lcc.csv') +save(vic_times_lcc, file='vic_times_lcc.RData') +write.csv(vic_times_lcc, file='vic_times_lcc.csv') |