## generate a region - events matrix
set.seed(31)
mat <- matrix(sample(0:1, 20, replace = TRUE), ncol = 5)
rownames(mat) <- c("I1", "I2", "I3", "I4")
colnames(mat) <- c("US1", "US2", "US3", "US4", "US5")
## run the function
co_occurrence(mat)
co_occurrence(mat, diagonal = TRUE)
## generate a regular data frame (list)
my_list <- get_list(mat)
## run the function
co_occurrence(my_list, list = TRUE)
co_occurrence(my_list, list = TRUE, diagonal = TRUE)
Run the code above in your browser using DataLab