XX1 = circleUnif(30)
XX2 = circleUnif(30, r=2) +3
XX=rbind(XX1,XX2)
DiagLim=5
maxdimension=1
Diag=ripsDiag(XX,maxdimension,DiagLim, printStatus=TRUE)
#persistence landscape
tseq=seq(0,DiagLim, length=1000)
Land= landscape(Diag, dimension=1, KK=1, tseq)
plot(tseq, Land, type="l", xlab="t", ylab="landscape", asp=1)
Run the code above in your browser using DataLab