R/sample_R.R

sample_R <-
function (e, priR) {
  S <- t(e) %*% e + priR[2] * diag(ncol(e))
  v <- priR[1]
  df <- v:(v - ncol(S) + 1)
  sig <- solve(rwish(solve(S), df))
  cov2cor(sig)
}

Try the BayesComm package in your browser

Any scripts or data that you put into this service are public.

BayesComm documentation built on May 2, 2019, 1:43 p.m.