https://github.com/cran/mvtBinaryEP
Raw File
Tip revision: bd876c4c9cc813f7c7b610832fa2793c250504d0 authored by Kunthel By on 25 January 2011, 00:00 UTC
version 1.0.1
Tip revision: bd876c4
u21.R
`u21` <-
function(v)
{
  v[lower.tri(v)] <- 0
  return(v + t(v) - diag(diag(v)))
}

back to top