Given a model which has been fitted to point pattern data by recursive partitioning, apply pruning to reduce the complexity of the partition tree.
# S3 method for rppm
prune(tree, …)
Fitted point process model of class "rppm"
produced by the function rppm
.
Arguments passed to prune.rpart
to control the pruning procedure.
Object of class "rppm"
.
This is a method for the generic function prune
for the class "rppm"
. An object of this class is a
point process model, fitted to point pattern data by
recursive partitioning, by the function rppm
.
The recursive partition tree will be pruned using
prune.rpart
. The result is another
object of class "rppm"
.
# NOT RUN {
# Murchison gold data
mur <- solapply(murchison, rescale, s=1000, unitname="km")
mur$dfault <- distfun(mur$faults)
fit <- rppm(gold ~ dfault + greenstone, data=mur)
fit
prune(fit, cp=0.1)
# }
Run the code above in your browser using DataLab