R/create.Distance.Matrix.R

Defines functions create.Distance.Matrix

create.Distance.Matrix <-
function(position.matrix){
  distance.matrix <- as.matrix(dist(position.matrix[,4:6], diag = TRUE, upper = FALSE))
  colnames(distance.matrix) <- position.matrix[,2]
  rownames(distance.matrix) <- position.matrix[,2]
  return(distance.matrix)
  
}
gryslik/SpacePAC documentation built on May 4, 2019, 3:13 a.m.