Prediction grid

grid <- rast(map, nrows = 100, ncols = 100, vals = 0) |> 
  mask(map)
grid

## class       : SpatRaster 
## dimensions  : 100, 100, 1  (nrow, ncol, nlyr)
## resolution  : 91.04224, 92.98719  (x, y)
## extent      : 472365.2, 481469.4, 4199888, 4209186  (xmin, xmax, ymin, ymax)
## coord. ref. : GGRS87 / Greek Grid (EPSG:2100) 
## source(s)   : memory
## name        : lyr.1 
## min value   :     0 
## max value   :     0

Aim: to get predicted values for each raster cell.