Create neighbour.R