メモ blog <- read.table("blog.txt",col.names=c("統計遺伝学","応用数学")) ryamada.two <- ts(blog, start=c(2005,1), end=c(2016, 11), frequency=12) plot(ryamada.two,plot.type="single",col=1:2) ryamada22 <- ts(blog$統計遺伝学, start=c(2005,1),…