# create random variable
dummy <- sample(1:8, 100, replace=TRUE)
# show value distribution
table(dummy)
# set value 1 and 8 as missings
dummy <- set_na(dummy, c(1,8))
# show value distribution, including missings
table(dummy, exclude=NULL)
Run the code above in your browser using DataLab