Add burn-in to a dirichletprocess object
Burn(dpobj, niter)A dirichletprocess object where all chain objects have the first
niter iterations are removed.
dp <- Fit(DirichletProcessGaussian(rnorm(10)), 100)
DiagnosticPlots(dp)
burned_dp <- Burn(dp, 50)
DiagnosticPlots(burned_dp)