# NOT RUN {
data(BPoirier)
BP <- BPoirier
# }
# NOT RUN {
local density in a rectangle sampling window
# }
# NOT RUN {
dswr <- dval(spp(BP$trees, win=BP$rect), 25, 1, 11, 9)
plot(dswr)
# }
# NOT RUN {
display only distance r from 5 to 10 with null symbols as red crosses
# }
# NOT RUN {
plot(dswr, select=c(5:10), char0=3, col0="red")
# }
# NOT RUN {
local L(r) values in a circular sampling window
# }
# NOT RUN {
lvswc <- kval(spp(BP$trees, win=c(55,45,45)), 25, 0.5)
plot(lvswc)
# }
# NOT RUN {
display square symbols in blue for selected values of r and remove title
# }
# NOT RUN {
plot(lvswc, chars="squares", cols="blue", select=c(5,7.5,10,12.5,15), main=NULL)
# }
# NOT RUN {
local K12(r) values (1="beech", 2="oak") in a complex sampling window
# }
# NOT RUN {
k12swrt <- k12val(spp(BP$trees, win=BP$rect, tri=BP$tri1, marks=BP$species), 25, 1)
plot(k12swrt, opt="kval")
# }
Run the code above in your browser using DataLab