요약
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))