data(paracou16)
# Density of all trees
lambda <- density.ppp(paracou16, bw.diggle(paracou16))
plot(lambda)
V.americana <- paracou16[paracou16$marks$PointType=="V. Americana"]
plot(V.americana, add=TRUE)
# Calculate Kinhom according to the density of all trees
r <- 0:30
ActualValues.X <- Kinhom.r(paracou16, r, "V. Americana", lambda)
# Plot
PlotResults(r, DivideByPiR2(ActualValues.X, r), ylab="Kinhom / (pi R^2)", ReferenceValue=1)
Run the code above in your browser using DataLab