z <- list(N = 56, Y = c( 9, 39, 11, 9, 15, 8, 26, 7, 6, 20, 13,
5, 3, 8,17, 9, 2, 7, 9, 7, 16, 31, 11, 7, 19, 15, 7, 10, 16, 11,5, 3,
7, 8, 11, 9, 11, 8, 6, 4, 10, 8, 2, 6, 19, 3, 2, 3, 28, 6, 1, 1, 1, 1,
0, 0), E = c(1.4, 8.7, 3.0, 2.5, 4.3, 2.4, 8.1, 2.3, 2.0, 6.6, 4.4,
1.8, 1.1,
  3.3, 7.8, 4.6, 1.1, 4.2, 5.5, 4.4, 10.5,22.7, 8.8, 5.6,15.5,12.5,
  6.0, 9.0,14.4,10.2, 4.8, 2.9, 7.0, 8.5,12.3,10.1,12.7, 9.4, 7.2,
  5.3, 18.8,15.8, 4.3,14.6,50.7, 8.2, 5.6, 9.3,88.7,19.6, 3.4, 3.6,
  5.7, 7.0, 4.2, 1.8),
X = c(0.16,0.16,0.10,0.24,0.10,0.24,0.10, 0.07,
  0.07,0.16, 0.07,0.16,0.10,0.24, 0.07,0.16,0.10, 0.07, 0.07,0.10,
  0.07,0.16,0.10, 0.07, 0.01, 0.01, 0.07, 0.07,0.10,0.10,
  0.07,0.24,0.10, 0.07, 0.07, 0,0.10, 0.01,0.16, 0, 0.01,0.16,0.16, 0,
  0.01, 0.07, 0.01, 0.01, 0, 0.01, 0.01, 0, 0.01, 0.01,0.16,0.10), 
long = c(5.5,2.36,3.90,2.4,5.09,3.25,3.3,1.43,5.42,2.6,6.8,4.64,3.98,5,3.1,3,
  4.09,2.88,4.73,2.9,2.98,2.2,5.27,3.96,3.3,3.6,4.09,2.8,4.09,3.8,4.55,4.36,
  3.2,4.73,4.98,4.95,5.02,4.18,4.99,4.91,4.82,4,3.96,4.09,3.4,4.75,4.45,
  4.27,4.55,3.2,4.27,4.64,4.7,4.45,3.38,3.4),
lat = c(57.29,57.56,58.44,55.76,57.71,59.13,57.47,60.24,56.9,57.24,58.12,
  58.06,57.47,54.94,56.3,57,57.06,55.65,57.24,55.35,56.75,57.12,56.4,55.63,
  56.2,56.1,55.24,55.95,56.6,55.9,55.47,55,55.83,56.3,55.29,55.94,55.76,55.91,
  56.15,56.06,55.88,56.03,56.25,55.82,55.93,55.65,55.71,55.79,55.9,56.45,56,
  56.15,55.79,55.99,55.68,55.18))