Tests if objects are valid PHom
instances.
is.PHom(x)
TRUE
if x
is a valid PHom
object; FALSE
otherwise
# 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)
#> [1] TRUE
# 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)
#> [1] FALSE