Update snowfall.R