סיכום
PMML אינו נתמך. הנה דרך לעקיפת הבעיה.
אפשרות לאלץ rxDTree אובייקטים של RevoScaleR לאובייקטים rpart. (שים לב ש-rpart זו היא חבילה מומלצים אשר ייתכן שיהיה עליך לטעון).
library(rpart)
שיטת <-"class"
טופס <-Kyphosis ~ מספר + התחלה
parms <-רשימה (קודמים = c (0.8, 0.2), אובדן = c (0, 2, 3, 0)
פיצול = "gini")
פקד <-rpart.control (minsplit = 5, minbucket = 2, cp = 0.01,
maxdepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
עלות <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (הנוסחה = Kyphosis ~ מספר + התחלה,
הנתונים kyphosis, שיטת = = שיטה, parms = parms,
פקד = פקד, עלות = עלות)
pmml(as.rpart(rxDTreeObj))
