Open A-Pai opened 7 months ago
library(rpart) progstat <- factor(stagec$pgstat, levels = 0:1, labels = c("No", "Prog")) cfit <- rpart(progstat ~ age + eet + g2 + grade + gleason + ploidy,data = stagec, method = 'class') summary(cfit, cp = 0.06)
library(rpart) progstat <- factor(stagec$pgstat, levels = 0:1, labels = c("No", "Prog")) cfit <- rpart(progstat ~ age + eet + g2 + grade + gleason + ploidy,data = stagec, method = 'class') summary(cfit, cp = 0.06)