n=100
mydat = SpatialPointsDataFrame(cbind(runif(n), runif(n)),
data=data.frame(cov1 = rnorm(n), cov2 = rpois(n, 0.5))
)
# simulate a random field
mydat$U = GaussRF(mydat, model="whittle", param=c(mean=0, variance=1, nugget=0,
scale=0.4, alpha=2))
# add fixed effects
mydat$Y = -3 + 2*mydat$cov1 + 0.5*mydat$cov2 + rnorm(length(mydat), 0, 0.1)
myres = likfit(mydat, Y ~ cov1 + cov2,
cov.model="matern", kappa=1, fix.kappa=TRUE,
ini.cov.pars = c(1, 0.2)
)
myres$beta.table
Run the code above in your browser using DataLab