Update FMISnowCoverExample.R