# construct data frame with valid persistence data
df <- data.frame(dimension = c(0, 0, 1, 1, 1, 2),
birth = rnorm(6),
death = rnorm(6, mean = 15))
# create `PHom` instance and print
df_phom <- PHom(df)
df_phom
# print feature details to confirm accuracy
print.data.frame(df_phom)
Run the code above in your browser using DataLab