Sammanfattning
PMML stöds inte. Här finns en lösning.Revoscaler's rxDTree objekt kan tvingas till rpart objekt. (Observera att rpart är ett rekommenderat paket som du kan behöva läsa in). Library(rpart)metoden <-"class"formuläret <-Kyphosis ~ nummer + StartParametrar <-lista (tidigare = c (0,8, 0,2) förlust = c (0, 2, 3, 0)dela = "gini")kontrollen <-rpart.control (minsplit = 5, minbucket = 2, cp = 0,01,MaxDepth ändras = 10, maxcompete = 4 maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)kostnad <-1 + seq(length(attr(terms(form), "term.labels")))rxDTreeObj <-rxDTree (formeln = Kyphosis ~ nummer + Start,data = kyphosis metod = metod parametrar = parametrar,kontroll = kontroll, kostnad = kostnad)pmml(AS.rpart(rxDTreeObj))
