fit <- dppm(japanesepines ~ x, dppGauss)
vcov(fit)
vcov(fit, what="corr")
# confidence interval (95 percent)
confint(fit)
# cross-check the confidence interval by hand:
sd <- sqrt(diag(vcov(fit)))
coef(fit) + qnorm(0.975) * outer(sd, c(lower=-1, upper=1))
Run the code above in your browser using DataLab