Update bfmSpatial.R

add aggre: aggregation by month
change bfastts to zoo () or ts()