misty (version 0.5.0)

as.na: Replace User-Specified Values With Missing Values

Description

This function replaces user-specified values in the argument as.na in a vector, factor, matrix, array, list, or data frame with NA.

Usage

as.na(x, na, check = TRUE)

Value

Returns x with values specified in na replaced with NA.

Arguments

x

a vector, factor, matrix, array, data frame, or list.

na

a vector indicating values or characters to replace with NA.

check

logical: if TRUE, argument specification is checked.

Author

Takuya Yanagida

References

Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988) The New S Language. Wadsworth & Brooks/Cole.

See Also

na.as, na.auxiliary, na.coverage, na.descript, na.indicator, na.pattern, na.prop, na.test

Examples

#--------------------------------------
# Numeric vector
x.num <- c(1, 3, 2, 4, 5)

# Replace 2 with NA
as.na(x.num, na = 2)

# Replace 2, 3, and 4 with NA
as.na(x.num, na = c(2, 3, 4))

#--------------------------------------
# Character vector
x.chr <- c("a", "b", "c", "d", "e")

# Replace "b" with NA
as.na(x.chr, na = "b")

# Replace "b", "c", and "d" with NA
as.na(x.chr, na = c("b", "c", "d"))

#--------------------------------------
# Factor
x.factor <- factor(c("a", "a", "b", "b", "c", "c"))

# Replace "b" with NA
as.na(x.factor, na = "b")

# Replace "b" and "c" with NA
as.na(x.factor, na = c("b", "c"))

#--------------------------------------
# Matrix
x.mat <- matrix(1:20, ncol = 4)

# Replace 8 with NA
as.na(x.mat, na = 8)

# Replace 8, 14, and 20 with NA
as.na(x.mat, na = c(8, 14, 20))

#--------------------------------------
# Array
x.array <- array(1:20,dim = c(2, 3, 2))

# Replace 1 and 10 with NA
as.na(x.array, na = c(1, 10))

#--------------------------------------
# Data frame
x.df <- data.frame(x1 = c(1, 2, 3),
                   x2 = c(2, 1, 3),
                   x3 = c(3, 1, 2), stringsAsFactors = FALSE)

# Replace 1 with NA
as.na(x.df, na = 1)

# Replace 1 and 3 with NA
as.na(x.df, na = c(1, 3))

#--------------------------------------
# List
x.list <- list(x1 = c(1, 2, 3, 1, 2, 3),
               x2 = c(2, 1, 3, 2, 1),
               x3 = c(3, 1, 2, 3))

# Replace 1 with NA
as.na(x.list, na = 1)