Sumário
PMML não é suportada. Aqui está uma solução alternativa.
Objectos de rxDTree do RevoScaleR podem ser forçados para objectos de rpart. (Note que rpart é um pacote recomendado que poderá ter de carregar.)
Library(rpart)
método <-"class"
formulário <-Kyphosis ~ número + iniciar
os parâmetros <-lista (prévia = c (0.8, 0,2), perda = c (0, 2, 3, 0),
Dividir = "gini")
controlo <-rpart.control (minsplit = 5, minbucket = 2, cp = 0,01,
MaxDepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
Custo <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (fórmula = Kyphosis ~ Number + início,
dados = kyphosis, método = método, os parâmetros = os parâmetros,
controlo = controlo, Custo = Custo)
pmml(as.rpart(rxDTreeObj))
