# create sample persistence data
df <- data.frame(dimension = c(0, 0, 1, 1, 1, 2),
birth = rnorm(6),
death = rnorm(6, mean = 15))
df_phom <- as.PHom(df)
# look at first 3 features
head(df_phom)
# look at last 3 features
tail(df_phom)
Run the code above in your browser using DataLab