# create circle dataset
angles <- runif(25, 0, 2 * pi)
circle <- cbind(cos(angles), sin(angles))
# calculate persistent homology
circle_phom <- vietoris_rips(circle)
# print persistence data
print(circle_phom)
Run the code above in your browser using DataLab