Create seaicespiral.R