Sammanfattning
PMML stöds inte. Här finns en lösning.
Revoscaler's rxDTree objekt kan tvingas till rpart objekt. (Observera att rpart är ett rekommenderat paket som du kan behöva läsa in).
Library(rpart)
metoden <-"class"
formuläret <-Kyphosis ~ nummer + Start
Parametrar <-lista (tidigare = c (0,8, 0,2) förlust = c (0, 2, 3, 0)
dela = "gini")
kontrollen <-rpart.control (minsplit = 5, minbucket = 2, cp = 0,01,
MaxDepth ändras = 10, maxcompete = 4 maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
kostnad <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (formeln = Kyphosis ~ nummer + Start,
data = kyphosis metod = metod parametrar = parametrar,
kontroll = kontroll, kostnad = kostnad)
pmml(AS.rpart(rxDTreeObj))