機械学習

演習課題

# URLからデータを読み込む際にurl()を使用
d <- read.csv(url("https://stats.dip.jp/01_ds/data/bike_rental.csv"))

# データを表示
library(DT)
datatable(d, options = list(pageLength = 5))

library(rpart)
library(rpart.plot)

## Warning: パッケージ 'rpart.plot' はバージョン 4.3.3 の R の下で造られました

tree <- rpart(レンタル数 ~ 季節 + 月 + 曜日 + 祝日 + 休日 + 天気 + 気温 + 湿度 + 風速, method = "anova", data = d)

rpart.rules(tree)

rpart.plot(tree, branch.type = 5)

plotcp(tree)

tree3 <- prune(tree, cp = 0.02)

rpart.plot(tree3, branch.type = 5)