File: na.replace.R

package info (click to toggle)

gtools 3.8.1-1

file content (8 lines) | stat: -rw-r--r-- 134 bytes

na.replace <- function(x, replace, ...)
{
  if(is.function(replace))
    replace <- replace(x, ...)
  
  x[is.na(x)] <- replace
  x
}