data(seedlings1)
seed.m <- marksum(seedlings1, R=25)
plot(seed.m, what="marksum", sigma = 5) # raw mark-sum measure; sigma is bandwith for smoothing
plot(seed.m, what="pointsum", sigma = 5, col = tim.colors(30),) # point sum measure
plot(seed.m, what="normalized", dimyx=200, contour=TRUE, sigma = 5) # normalized mark-sum measure
# the same with added grid
plot(seed.m, what="normalized", dimyx=200, contour=TRUE, sigma = 5, grid=TRUE) # normalized mark-sum measure
Run the code above in your browser using DataLab