# \donttest{
set.seed(123)
X <- cbind(runif(100), runif(100), runif(100, 0, 10))
# Visualize point pattern in 3D space–time
plot_stpp(X, type = "3D")
# View spatial projection
plot_stpp(X, type = "space")
# Inspect temporal distribution
plot_stpp(X, type = "time", time_bins = 20)
# }
Run the code above in your browser using DataLab