Σύνοψη
PMML δεν υποστηρίζεται. Εδώ είναι ένας εναλλακτικός τρόπος αντιμετώπισης.
Να δυνατή η αναγκαστική μετατροπή του RevoScaleR rxDTree αντικείμενα σε αντικείμενα rpart. (Σημειώστε ότι το rpart είναι ένα συνιστώμενο πακέτο που χρειάζεστε για να φορτώσετε).
Library(rpart)
η μέθοδος <-"κλάση"
φόρμα <-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))
