요약
PMML은 지원 하지 않습니다. 문제를 해결 하려면 다음과 같습니다.RevoScaleR의 rxDTree 개체를 rpart 개체에 강제 수 있습니다. (Note: 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 = maxsurrogate, 4 = 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))
