# create sample persistence data
df <- data.frame(dimension = c(0, 0, 1, 1, 1, 2),
birth = rnorm(6),
death = rnorm(6, mean = 15))
df <- as.PHom(df)
# confirm that persistence data is valid
is.PHom(df)
# mess up df object (feature birth cannot be after death)
df$birth[1] <- rnorm(1, mean = 50)
# confirm that persistence data is NOT valid
is.PHom(df)
Run the code above in your browser using DataLab