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 + iniciaros 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))
