機械学習

演習課題

d <- read.csv('https://stats.dip.jp/01_ds/data/bike_rental.csv')

library(DT)
datatable(d, options = list(pageLength = 5))

library(rpart)
tree <- rpart(レンタル数 ~ ., method = "anova", data = d)

library(rpart.plot)
rpart.plot(tree)

plotcp(tree)

d <- read.csv('https://stats.dip.jp/01_ds/data/iris.csv')

library(DT)
datatable(d, options = list(pageLength = 5))

library(rpart)
library(rpart.plot)


tree <- rpart(Species ~ ., data = d, method = 'class', cp = 0.0)

rpart.plot(tree, type = 5)

tree <- rpart(Species~.,data = d)
plotcp(tree)

rpart.predict(tree,
              newdata = data.frame(Sepal.Length = 4.0,
                                   Sepal.Width = 3.0,
                                   Petal.Length = 3.0,
                                   Petal.Width = 1.0))

##   setosa versicolor  virginica
## 1      0  0.9074074 0.09259259