# NOT RUN {
f <- iris$Species[1:100]
fdroplevels(f)
identical(fdroplevels(f), droplevels(f))
fNA <- na_insert(f)
fdroplevels(fNA)
identical(fdroplevels(fNA), droplevels(fNA))
identical(fdroplevels(ss(iris, 1:100)), droplevels(ss(iris, 1:100)))
# }
Run the code above in your browser using DataLab