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 Oct. 9, 2017, 12:07 a.m.