R: add beta to init
R: add month, year, ddply