Nothing
rpoispoly <- function(z,w=NULL,correction=1.1,maxpass=50){
if(is.im(z)){
if(any(z<0)) stop("'z' must be a non-negatively-valued spatial intensity function")
} else {
stop("'z' must be an object of class 'im' (spatstat)")
}
return(rimpoly(rpois(1,spatstat.geom::integral.im(z)),z=z,w=w,correction=correction,maxpass=maxpass))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.