Sumário
Não há suporte para PMML. Aqui está uma solução alternativa.
Objetos do rxDTree do RevoScaleR podem ser forçados a objetos rpart. (Observe que rpart é um pacote recomendado que talvez você precise carregar).
Library(rpart)
método <-"classe"
formulário <-Kyphosis ~ número + iniciar
parâmetros <-lista (anterior = c (0,8, 0,2), perda = c (0, 2, 3, 0),
divisão = "gini")
controle <-rpart.control (minsplit = 5, minbucket = 2, cp = 0,01,
MaxDepth = 10, maxcompete = 4, maxsurrogate = 5, usesurrogate 20 = 2, surrogatestyle = 0, xval = 0)
custo <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (fórmula = Kyphosis ~ número + Iniciar,
dados = kyphosis, método = método, parâmetros = parâmetros,
controle = controle de custo = custo)
PMML(as.rpart(rxDTreeObj))
