group by individual function
Proposing a spatsoc
function using data.table::dcast
to create a group by individual matrix similar to the function asnipe::get_group_by_individual()
.
Skeleton:
d <- data.table::dcast(DT, formula = group ~ id, fun.aggregate = length,
value.var = 'group')
gbi_df <- as.matrix(d[, .SD,
.SDcols = colnames(d)[!grepl('group', colnames(d))]])
rownames(gbi_df) <- d$group
gbi.net_df <- asnipe::get_network(gbi_df, data_format="GBI",association_index="SRI")