R/nextSample.R

Defines functions nextSample

nextSample <-
function(x, Theta, iters)
{
  for (i in 1:iters)
  {
    x = GibbsIteration(x, Theta)
  }
  return(x)
}
jingmafdu/TestBMN documentation built on April 4, 2018, 6:08 p.m.