X <- amacrine
# compute all the local L functions
L <- localLcross.inhom(X)
# plot all the local L functions against r
plot(L, main="local L functions for ponderosa", legend=FALSE)
# plot only the local L function for point number 7
plot(L, iso007 ~ r)
Run the code above in your browser using DataLab