Resumen
No se admite el PMML. Aquí está la solución.
Objetos de rxDTree de RevoScaleR se pueden convertir a objetos rpart. (Tenga en cuenta que rpart es un paquete recomendado que necesita cargar.)
Library(rpart)
método <-"clase"
formulario <-Cifosis ~ Number + inicio
parámetros <-lista (previa = c (0,8, 0,2), pérdida = c (0, 2, 3, 0)
dividir = "gini")
control <-rpart.control (minsplit = 5, minbucket = 2, cp = 0.01,
MaxDepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
costo <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (fórmula = Cifosis ~ número + Start,
datos = cifosis, el método = método, parámetros = parámetros,
control = control, costo = costo)
PMML(As.rpart(rxDTreeObj))