# Generate data from 2 circles
XX1 = circleUnif(30)
XX2 = circleUnif(30, r=2) +3
XX=rbind(XX1,XX2)
DiagLim=5 # limit of the filtration
maxdimension=1 # computes betti0 and betti1
Diag=ripsDiag(XX,maxdimension,DiagLim, printStatus=TRUE)
print(Diag)
print(summary(Diag))
Run the code above in your browser using DataLab