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