Create Copy MODIS files using R,and give new names to them.r