_ | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁
FrontPage › DecisionTree

Contents

1
2
3
4 Boosting Tree
5 谿瑚襭



1 #

library(rpart)
library("rpart.utils")
library("rpart.plot")

fit<-rpart(Reliability~.,data=car.test.frame)
rpart.subrules.table(fit)

plotcp(fit)
rpart.plot(fit, type=4)

2 #

library(rpart)
model <- rpart(factor(is_out)~., data=training, method="class")

plot(model, uniform=TRUE)
text(model, use.n=T)

library(rattle)
fancyRpartPlot(model)

3 #

#install.packages("tree")
library(tree)
ir.tr <- tree(Species ~., iris)
ir.tr
ir.tr1 <- snip.tree(ir.tr, nodes = c(12, 7))
summary(ir.tr1)
par(pty = "s")
plot(iris[, 3],iris[, 4], type="n",
     xlab="petal length", ylab="petal width")
text(iris[, 3], iris[, 4], c("s", "c", "v")[iris[, 5]])
partition.tree(ir.tr1, add = TRUE, cex = 1.5)

# 1D example
ir.tr <- tree(Petal.Width ~ Petal.Length, iris)
plot(iris[,3], iris[,4], type="n", xlab="Length", ylab="Width")
partition.tree(ir.tr, add = TRUE, cex = 1.5)
partition.tree()襯 覃 螳 蠏碁殊 覲 .
partition_tree.png

4 Boosting Tree #

library(xgboost)
--谿瑚: http://freesearch.pe.kr/archives/4405

5 谿瑚襭 #

蠍 蠍郁鍵..
企: : るジ讓曙 襦螻豺 企Ν 譯殊語. 襦螻豺
EditText : Print : Mobile : FindPage : DeletePage : LikePages : Powered by MoniWiki : Last modified 2018-04-13 23:12:52Anonymous