`sst` <-
c(-0.523399666666667, -0.243378763494101, 0.0120787283950614, 
0.267536220284224, 0.614600333333333, 0.267536220284224)
`nao` <-
c(2.9, 0.697673111737266, -0.330601851851852, -1.35887681544097, 
-2.7, -1.35887681544097)
`soi` <-
c(-2.32666666666667, -1.08669698953284, -0.160493827160494, 0.765709335211855, 
2.61, -1.08669698953284)
`ssn` <-
c(235.8, 115.490523228697, 62.0509259259259, 8.61132862315509, 
0.6, 8.61132862315509)