Create FMISnowCoverExample.R