[R-br] Função predict-raster - modelo com factor