acvill

tri2sym <- 
  function(m, triangle) {
    if (!is.numeric(m)) {
      message("matrix must be numeric")
      stop()
    }
    if (dim(m)[1] != dim(m)[2]) {
      message("matrix must be square")
      stop()
    }