inst/examples/metrop-pois.R

library(mixlink)
library(coda)
set.seed(1234)

# ----- Prepare the data -----
n <- 400
x <- runif(n, 0, 4)
X <- model.matrix(~ x)
d <- ncol(X)
Beta.true <- c(3, -0.05)
mean.true <- exp(X %*% Beta.true)
kappa.true <- 3
Pi.true <- c(0.85, 0.15)
J <- length(Pi.true)

y <- r.mixlink.pois(n, mean.true, Pi.true, kappa.true, save.latent = FALSE)

# ----- MLE for initial values -----
glm.out <- glm(y ~ X-1, family = poisson)
phi.init <- c(coef(glm.out), mlogit(normalize(1:J)), log(1))
mle.out <- mle.mixlink.pois.x(y, X, J=J, invlink.mean = exp, phi.init = phi.init)
print(mle.out)

# ----- MCMC with Metropolis Hastings -----
hyper <- list(var.Beta = 1000,
	alpha.Pi = rep(1,J),
	a.kappa = 1,
	b.kappa = 3/4)

proposal <- list(
	var = solve(-mle.out$optim.res$hessian),
	scale = 1.4
)

param.grp <- seq(1, d+J-1+1)
metrop.out <- rwmetrop.mixlink.poisson(y, X, R = 1000, burn = 0, thin = 1,
	invlink = exp, report.period = 50,
  Beta.init = mle.out$theta.hat$Beta,
	Pi.init = mle.out$theta.hat$Pi,
  kappa.init = mle.out$theta.hat$kappa,
	hyper = hyper, use.laplace.approx = FALSE,
	proposal = proposal, param.grp = param.grp)
print(metrop.out)

Beta.mcmc <- mcmc(metrop.out$Beta.hist)
Pi.mcmc <- mcmc(metrop.out$Pi.hist)
kappa.mcmc <- mcmc(metrop.out$kappa.hist)

DIC(metrop.out)
res <- residuals(metrop.out)
res.mean <- colMeans(res)

Try the mixlink package in your browser

Any scripts or data that you put into this service are public.

mixlink documentation built on May 2, 2019, 5:11 a.m.