# NOT RUN {
data(dft)
dft <- dft[,c(2,3,5,9,11)]
ohse(dft, limit = 3) %>% head(3)
ohse(dft, limit = 3, redundant = TRUE) %>% head(3)
# Getting rid of columns with no (or too much) variance
dft$no_variance1 <- 0
dft$no_variance2 <- c("A", rep("B", nrow(dft) - 1))
dft$no_variance3 <- as.character(rnorm(nrow(dft)))
dft$no_variance4 <- c(rep("A", 20), round(rnorm(nrow(dft) - 20), 4))
ohse(dft, limit = 3) %>% head(3)
ohse(dft, limit = 3, var = 1) %>% head(3)
# }
Run the code above in your browser using DataLab