R/posterior.R
PosteriorFunction.RdGenerate the posterior function of the Dirichlet function
PosteriorFunction(dpobj, ind)A posterior function f(x).
y <- rnorm(10)
dp <- DirichletProcessGaussian(y)
dp <- Fit(dp, 5)
postFuncDraw <- PosteriorFunction(dp)
plot(-3:3, postFuncDraw(-3:3))