SnowFall in R