Modification of weather.R