ملخص
بممل غير معتمد. هنا حل.
يمكنك فرض وضع الكائنات ركسدتري ريفوسكالير لكائنات ربارت. (لاحظ أن ربارت هو حزمة الموصى بها التي قد تحتاج إلى تحميل).
library(rpart)
الأسلوب <-"الطبقة"
نموذج <-الحداب ~ رقم + ابدأ
parms <-قائمة (السابقة = c (0.8، 0.2)، فقد = c (0, 2, 3, 0)
تقسيم = "جيني")
عنصر تحكم <-rpart.control (مينسبليت = 5، مينبوكيت = 2، cp = 0.01،
maxdepth = 10، ماكسكومبيتي = 4، ماكسسوروجاتي = 5، 20 أوسيسوروجاتي = 2، سوروجاتيستيلي = 0، إكسفال = 0)
تكلفة <-1 + seq(length(attr(terms(form)، "term.labels")))
ركسدتريوبج <-ركسدتري (الصيغة = حداب ~ العدد + ابدأ،
بيانات = حداب، الأسلوب أسلوب، parms = = parms،
تحكم مراقبة التكلفة = التكلفة =)
pmml(as.rpart(rxDTreeObj))