function til kun at se på bestemte segmenters interesse

[emilBeBri]

Med segment.edges-funktionen kan man jo inputte RR-mobilitetsmatricen til gg.jonas. Jeg har gerne ville fokusere på bestemte mobilitetskanaler, og bruger denne her metode til at fremhæve de edges, jeg er interesserede i. Følgende legetøjseksempel burde dækkke de fleste brugseksempler:

jobnames <- c("job 1","job 2","job 3","job 4","job 5","job 6","job 7")
jobdat <- matrix(c(
99, 5, 5, 0, 0, 5, 5,
5, 99, 2, 5, 5, 1, 5,
1, 5, 99, 5, 0, 0, 1,
1, 0, 5, 99, 8, 0, 1,
0, 5, 0, 0, 99, 5, 1,
0, 0, 5, 5, 0, 99, 5,
0, 1, 0, 0, 5, 1, 99
),
nrow = 7, ncol = 7, byrow = TRUE,
dimnames = list(jobnames,jobnames
))

mat.e <- jobdat
work.list <- c(1,2,3)
################ avanceret2: segment + ties (uden edges ml ties)
irr.job.indices <- which(!(seq_len(7) %in% work.list))

first, keep diagonal values for irr.job.indices

dvals <- diag(mat.e)

set sub-matrix to zero (this will also set diagnal elements to zero)

mat.e[irr.job.indices,irr.job.indices] <- 0

#fjerner interne ties i segmenter af interesse (hvis vi bare vil se hvor de går hen)
mat.e[work.list,work.list] <- 0

#kun fra segmenter af interesse til andre segmenter
mat.e[irr.job.indices,work.list] <- 0
#kun til segmenter af interesse fra andre segmenter (modstridende ihft ovenstående)

mat.e[work.list,irr.job.indices] <- 0

diag(mat.e) <- dvals