# NOT RUN {
x <- as.item(rep(1:5,4),
labels=c(
"First" = 1,
"Second" = 2,
"Third" = 3,
"Fourth" = 4,
"Don't know" = 5
),
missing.values=5,
annotation = c(
description="test"
))
labels(x)
labels(x) <- labels(x) - c("Second"=2)
labels(x)
labels(x) <- labels(x) + c("Second"=2)
labels(x)
puvl <- getOption("print.use.value.labels")
options(print.use.value.labels=FALSE)
x
options(print.use.value.labels=TRUE)
x
options(print.use.value.labels=puvl)
# }
Run the code above in your browser using DataLab