# NOT RUN {
# load three circle data
data(three_circle_dat)
# input variables
Xlim <- c(-4,12)
Ylim <- c(-4,9)
lim <- cbind(Xlim, Ylim)
by <- 0.1
spseq <- seq(0.01,1.5,length.out = 25)
# compute persistence terrace
# }
# NOT RUN {
threecirclept <- computept(three_circle_dat,sp=spseq,lim=lim,by=by)
# draw persistence terrace, satellite view
plotpt(threecirclept,dimension=1)
# draw persistence terrace, overall view
plotpt(threecirclept,dimension=1,satellite=FALSE)
# }
Run the code above in your browser using DataLab