##Noisy circle example
phi <- runif(100)*2*pi
arc <- cbind(cos(phi), sin(phi)) * (1+rnorm(length(phi)) * 0.1)
dgm <- multiscale.rips.ipca(X = arc, epsGMRA = 0, maxD = 2);
plot(x = dgm[,1], y = dgm[,2], xlim = c(0, max(dgm[,1:2]) ), ylim = c(0, max(dgm[,1:2])) ,
asp=1, pch=19)
abline(0, 1)
Run the code above in your browser using DataLab