Bạn cần phải vượt qua các kết quả từ rxDTree() rxPredict() (sử dụng 'loại' = 'hỗ trợ') để có được xác suất lớp cho mỗi quan sát trong dữ liệu của bạn.Đây là một ví dụ nhanh chóng bằng cách sử dụng dữ liệu 'iris':
# classification iris.sub <- c(sample(1:50, 25), sample(51:100, 25), sample(101:150, 25)) iris.dtree <- rxDTree(Species ~ Sepal.Length + Sepal.Width + Petal.Length + Petal.Width, data = iris[iris.sub, ], cp = 0.01) iris.dtreerxPredict(iris.dtree, iris[-iris.sub, ], type = "prob")
