# NOT RUN {
# load data
data(two_circle_size_dat)
# input variables
Xlim <- c(-4,13)
Ylim <- c(-7,7)
lim <- cbind(Xlim, Ylim)
by <- 0.1
spseq <- seq(0.01,3,length.out = 25)
# compute persistence terrace with parallel option
# }
# NOT RUN {
two_circle_size_pt <- computept(two_circle_size_dat,sp=spseq,lim=lim,by=by,par=TRUE)
# draw persistence terrace, satellite view
plotpt(two_circle_size_pt,dimension=1)
# }
Run the code above in your browser using DataLab