data(paracou16)
# Keep only 50% of points to run this example
X <- as.wmppp(rthin(paracou16, 0.5))
autoplot(X,
labelSize = expression("Basal area (" ~cm^2~ ")"),
labelColor = "Species")
# Calculate Lmm
r <- seq(0, 30, 2)
(Paracou <- Lmmhat(X, r))
# Plot
autoplot(Paracou)
Run the code above in your browser using DataLab