df <- df <- data.frame(x = a$lon,
             y = a$lat,
             z = a$fh)

ps_raster <- rasterFromXYZ(df, res=c(0.01,0.01),crs="+proj=longlat +datum=WGS84", digits=5)