Code:

```
N <- c("59.22.07", "58.01.32", "57.26.49")
W <- c("02.26.45", "03.50.19", "07.24.15")
```

Code:

```
# needs last period removing
N <- c("59.2207", "58.0132", "57.2649")
# needs last period removing, plus a - at start
W <- c("-02.2645", "-03.5019", "-07.2415")
```