https://github.com/cran/mvtBinaryEP
Raw File
Tip revision: e03023db232593f436717e7be27d1c52d9865644 authored by Kunthel By on 18 February 2009, 00:00:00 UTC
version 1.0
Tip revision: e03023d
u21.R
`u21` <-
function(v)
{
  v[lower.tri(v)] <- 0
  return(v + t(v) - diag(diag(v)))
}

back to top