R/coerce2.R

In mmuurr/MuratTasan_R_package: Murat Tasan's Swiss-Army Knife

NA2 <- function(x, replacement) {
    x[is.na(x)] <- replacement
    x
}

Inf2 <- function(x, replacement) {
    x[is.infinite(x)] <- replacement
    x
}

NaN2 <- function(x, replacement) {
    x[is.nan(x)] <- replacement
    x
}