Preparations before fitting with inla()

Projection matrix for the prediction locations:

A.p <- inla.spde.make.A(mesh = mesh, loc = coop)