# NOT RUN {
n <- 100
beta <- c(-2, 1)
phi <- .2
omg <- .3
linkp <- 0
ssq <- 1
l <- rep(10, n)
corrf <- "matern"
kappa <- .5
family <- "poisson"
Xcoord <- runif(n)
Ycoord <- runif(n)
f <- Xcoord + Ycoord
formula <- y|z ~ f
mydata <- rsglmm(1, formula, family, weights = l,
atsample = ~ Xcoord + Ycoord, beta = beta, linkp = linkp,
phi = phi, omg = omg, kappa = kappa, ssq = ssq,
corrfcn = corrf, returnGRF = TRUE)
# }
Run the code above in your browser using DataLab