# NOT RUN {
diag1 <- matrix(c(1,1,1,0,2,3,2,2.5,4), ncol = 3, byrow = FALSE)
colnames(diag1) <- c("dimension", "birth", "death")
pi1 <- pers.image(d1 = diag1, nbins = 20, dimension = 1, h = 1)
image(pi1)
# }
Run the code above in your browser using DataLab