# NOT RUN {
# Generate data for the example
carseats <- ISLR::Carseats
carseats[sample(seq(NROW(carseats)), 20), "Income"] <- NA
carseats[sample(seq(NROW(carseats)), 5), "Urban"] <- NA
find_skewness(carseats)
find_skewness(carseats, index = FALSE)
find_skewness(carseats, thres = 0.1)
find_skewness(carseats, value = TRUE)
find_skewness(carseats, value = TRUE, thres = 0.1)
## using dplyr -------------------------------------
library(dplyr)
# Perform simple data quality diagnosis of variables with outliers.
carseats %>%
select(find_skewness(.)) %>%
diagnose()
# }
Run the code above in your browser using DataLab