changed R script to plot persistence landscape