# This can be slow!
if (spaMM.getOption("example_maxtime")>10) {
data("blackcap")
foo <- fitme(migStatus ~ means+ Matern(1|longitude+latitude),data=blackcap)
(infomat <- get_infomat(foo))
# Residual dispersion parameters are not yet handled:
data("wafers")
hlfit <- fitme(y ~ X1+X2+X1*X3+X2*X3+I(X2^2)+(1|batch), family=Gamma(log),
resid.model = ~ X3+I(X3^2) ,data=wafers)
(infomat <- get_infomat(hlfit))
}
Run the code above in your browser using DataLab