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 + Startparametri <-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 = =, parametricontrollo = controllo, costo = costo)PMML(As.rpart(rxDTreeObj))
