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))
   ZRun the code above in your browser using DataLab