R/AdjacencyMatrix.R

Defines functions AdjacencyMatrix

AdjacencyMatrix <- function(x){
  pp <- unique(x)
  n <- length(x)
  all <- matrix(0, ncol = n, nrow = n)
  for(i in 1:length(pp)){
    IDs <- which(x %in% pp[i])	
    all[IDs, IDs] <- 1
  }
  diag(all) <- 1
  return(all)
  
}
ChenMengjie/Citrus documentation built on April 14, 2020, 4:55 a.m.