# NOT RUN {
# Data generation
set.seed(1)
n <- 10
p <- 2
y <- matrix(1:(n*p), ncol = p, dimnames = list(sample(letters, n)))
y[c(3, 8, 12)] <- NA
rownames <- letters
# Standard use
add0(y, rownames)
# Use when rownames in y do not match
# any element in the rownames argument
rownames(y)[1:3] <- toupper(rownames(y)[1:3])
add0(y, rownames)
add0(y, rownames, remove = FALSE)
# }
Run the code above in your browser using DataLab