# 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
# Diagnosis of all variables
diagnose(carseats)
# Select the variable to diagnose
diagnose(carseats, Sales, Income, Age)
diagnose(carseats, -Sales, -Income, -Age)
diagnose(carseats, "Sales", "Income", "Age")
diagnose(carseats, 1, 3, 8)
# Using pipes ---------------------------------
library(dplyr)
# Diagnosis of all variables
carseats %>%
diagnose()
# Positive values select variables
carseats %>%
diagnose(Sales, Income, Age)
# Negative values to drop variables
carseats %>%
diagnose(-Sales, -Income, -Age)
# Positions values select variables
carseats %>%
diagnose(1, 3, 8)
# Positions values select variables
carseats %>%
diagnose(-8, -9, -10)
# Using pipes & dplyr -------------------------
# Diagnosis of missing variables
carseats %>%
diagnose() %>%
filter(missing_count > 0)
# }
Run the code above in your browser using DataLab