set.seed(2)
df <- data.frame(cbind(runif(100), runif(100), runif(100)))
stp1 <- stp(df)
#plot
plot(stp1)
#cumulative time occurrances
plot(stp1, tcum = FALSE)
#change color of points
plot(stp1, col = "blue")
#display only in space-time
plot(stp1, marg = FALSE)
#discrete times
set.seed(2)
stp2 <- stp(data.frame(cbind(runif(100), runif(100), round(runif(100) * 100))))
plot(stp2)
Run the code above in your browser using DataLab