Update seaicespiral.R