# NOT RUN {
data(BPoirier)
BP<-BPoirier
# }
# NOT RUN {
performing point pattern analysis in a rectangle sampling window
# }
# NOT RUN {
swr <- spp(BP$trees, win=BP$rect)
plot(swr)
# }
# NOT RUN {
performing the mimetic point process from "spp" object
# }
# NOT RUN {
mimswr <- mimetic(swr, 20, 2)
plot(mimswr)
# }
# NOT RUN {
performing the mimetic point process from "fads" object
# }
# NOT RUN {
mimkswr <- mimetic(kfun(swr, 20, 2))
plot(mimkswr)
# }
Run the code above in your browser using DataLab