R Markdown

tmp <- read.csv("data/seikatsuR3.csv", fileEncoding = "Shift-JIS")
hist(tmp$Sleep)