ReferenceType <- "V. Americana"
NeighborType <- "Q. Rosea"
# Calculate individual intertype M(distance) values
fvind <- Mhat(paracou16, r=c(0, 30), ReferenceType, NeighborType, Individual=TRUE)
# Plot the point pattern with values of M(30 meters)
p16_map <- Smooth(paracou16, fvind, distance=30)
plot(p16_map, main = "")
# Add the reference points to the plot
is.ReferenceType <- paracou16$marks$PointType == ReferenceType
points(x=paracou16$x[is.ReferenceType], y=paracou16$y[is.ReferenceType], pch=20)
# Add contour lines
contour(p16_map, nlevels = 5, add = TRUE)
Run the code above in your browser using DataLab