LIKOGTOL

```{r}
ae$lon<-r2d(ae$reit)$lon
ae$lat<-r2d(ae$reit)$lat
longt_change = -19
latt_change = 65
ae$hafsvaedi<-with(ae,ifelse(lat>=latt_change & lon>=longt_change, "NA", ifelse(lat>=latt_change & lon<longt_change,"NV", ifelse(lat<latt_change & lon>=longt_change, "SA","SV"))))
```