df <- data.frame(x=runif(4),y=runif(4),z=runif(4))
X <- ppx(data=df, t="z")
X
val <- runif(4)
E <- lapply(val, function(s) { rpoispp(s) })
hf <- hyperframe(t=val, e=as.listof(E))
Z <- ppx(data=hf, domain=c(0,1))
Z
Run the code above in your browser using DataLab