※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

da <- subset(d, d$month %in% c(8,9)) #8~9を抽出
|