mymodel = c(mean=-0.5, variance=1,
range=2, rough=2)
myraster = raster(nrows=15,ncols=20,xmn=0,xmx=10,ymn=0,ymx=7.5)
# some covariates, deliberately with a different resolution than myraster
myCovariate = list(a=raster(matrix(1:10,10,10), -1,11,-1,8.5),
b=raster(matrix(1:10,10,10,byrow=TRUE), -1,11,-1,8.5))
myLgcp=simLgcp(mymodel, myCovariate, betas=c(a=-0.1, b=0.25),
rasterTemplate=myraster)
plot(myLgcp$raster[["intensity"]])
points(myLgcp$events)
myIntensity = exp(-1+0.2*myCovariate[["a"]])
myPoissonPP = simPoissonPP(myIntensity)
plot(myIntensity)
points(myPoissonPP)
Run the code above in your browser using DataLab