Как заменить NA в растровом объекте

Мне нужно заменить NAв растровом объекте(r)из приведенного ниже примера.

library(raster)
filename <- system.file("external/test.grd", package="raster")
r <- raster(filename)

Я также попытался удалить эти (и поместить результат вdata.frame), но безрезультатно.

dfr <- as.data.frame(r, na.rm=T)
summary(dfr)
# test       
# Min.   : 128.4  
# 1st Qu.: 293.2  
# Median : 371.4  
# Mean   : 423.2  
# 3rd Qu.: 499.8  
# Max.   :1805.8  
# NA's   :6097