mymodel = c(mean=-0.5, variance=1,
scale=2, alpha=2)
myraster = raster(nrows=20,ncols=20,xmn=0,xmx=10,ymn=0,ymx=10)
myCovariate = list(a=raster(matrix(1:10,10,10), 0,10,0,10),
b=raster(matrix(1:10,10,10,byrow=TRUE), 0,10,0,10))
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