GaussKruger <- function(){
  
  x = fishnet(ext=c(-180, 180, -90, 90), dx = 6, dy=180)
  plot(x, axes=T)
  
  x
  
}