Preparations before fitting with inla()

• create the mesh

mesh <- inla.mesh.2d(loc = coo, max.edge = c(200, 500),
                     cutoff = 1)