• このページは公開されるので個人情報などは記載しないこと。
  • 課題が完成したらknitしPublishする。

課題名

d <- read.csv('https://stats.dip.jp/01_ds/data/bike_rental.csv')
library(DT)
datatable(d,options = list(pageLength = 5))
rm(list = ls()) # 全オブジェクト削除
# ここにRコードを記入する。
#例）
plot(1:9)