Update bfmSpatial.R

use all zoo object, start and history period is which year: e.g. 7 8 9