# NOT RUN {
K <- lapply(waterstriders, Kest, correction="iso")
Kall <- pool(K[[1]], K[[2]], K[[3]])
Kall <- pool(as.anylist(K))
plot(Kall, cbind(pooliso, pooltheo) ~ r,
shade=c("loiso", "hiiso"),
main="Pooled K function of waterstriders")
# }
Run the code above in your browser using DataLab