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