Riepilogo
PMML non è supportato. Qui è una soluzione alternativa.
Oggetti rxDTree del RevoScaleR possono essere assegnati agli oggetti rpart. Si noti che rpart è un pacchetto consigliato che potrebbe essere necessario caricare.
Library(rpart)
metodo <-"class"
modulo <-Kyphosis ~ numero + Start
parametri <-elenco (precedente = c (0,8, 0,2), perdita = c (0, 2, 3, 0),
dividere = "gini")
controllo <-rpart.control (minsplit = 5, minbucket = 2, cp = 0.01,
MaxDepth = 10, maxcompete = 4, maxsurrogate = 5, usesurrogate 20 = 2, surrogatestyle = 0, corrispondenza = 0)
costo <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (formula = Kyphosis ~ numero + Start,
dati = kyphosis, metodo metodo, parametri di = =, parametri
controllo = controllo, costo = costo)
PMML(As.rpart(rxDTreeObj))