some R codes to analyze MODIS time series data in Fukushima