# NOT RUN {
data(p50)
mcmc.4 <- mcmc.control(S.scale = 0.000035, n.iter = 1000)
kr4 <- list(family="poisson", cov.pars=c(1,1), beta=0)
condsim.4 <- glsm.mcmc(p50, mcmc.input = mcmc.4, model = kr4)
mcmcobj.4 <- prepare.likfit.glsm(condsim.4)
lik.4 <- likfit.glsm(mcmcobj.4, ini.phi = 10, fix.nugget.rel = TRUE)
lik.4.spherical.nugget <- likfit.glsm(mcmcobj.4, ini.phi = 5.59,
cov.model = "spherical", nugget.rel = 0.385)
# }
Run the code above in your browser using DataLab