# NOT RUN {
data(BPoirier)
BP <- BPoirier
# }
# NOT RUN {
spatial point pattern in a rectangle sampling window of size [0,110] x [0,90]
# }
# NOT RUN {
swr <- spp(BP$trees, win=BP$rect)
kswr <- kfun(swr,25,1,500)
plot(kswr)
# }
# NOT RUN {
spatial point pattern in a circle with radius 50 centred on (55,45)
# }
# NOT RUN {
swc <- spp(BP$trees, win=c(55,45,45))
kswc <- kfun(swc, 25, 1, 500)
plot(kswc)
# }
# NOT RUN {
spatial point pattern in a complex sampling window
# }
# NOT RUN {
swrt <- spp(BP$trees, win=BP$rect, tri=BP$tri1)
kswrt <- kfun(swrt, 25, 1, 500)
plot(kswrt)
# }
Run the code above in your browser using DataLab