R/tofull.R

Defines functions tofull

tofull <- function(matrix) {
  out <- matrix
  for (i in 1:nrow(matrix)) {
    for (j in 1:i) {
      out[j, i] <- out[i, j]
    }
  }
  return(out)
}
eunscho/dv documentation built on Jan. 30, 2022, 12:12 p.m.