# \donttest{
# Diagnosis of all variables
diagnose(jobchange)
# Select the variable to diagnose
diagnose(jobchange, gender, experience, training_hours)
diagnose(jobchange, -gender, -experience, -training_hours)
diagnose(jobchange, "gender", "experience", "training_hours")
diagnose(jobchange, 4, 9, 13)
# Using pipes ---------------------------------
library(dplyr)
# Diagnosis of all variables
jobchange %>%
diagnose()
# Positive values select variables
jobchange %>%
diagnose(gender, experience, training_hours)
# Negative values to drop variables
jobchange %>%
diagnose(-gender, -experience, -training_hours)
# Positions values select variables
jobchange %>%
diagnose(4, 9, 13)
# Negative values to drop variables
jobchange %>%
diagnose(-8, -9, -10)
# Using pipes & dplyr -------------------------
# Diagnosis of missing variables
jobchange %>%
diagnose() %>%
filter(missing_count > 0)
# Using group_by ------------------------------
# Calculate the diagnosis of all variables by 'job_chnge' using group_by()
jobchange %>%
group_by(job_chnge) %>%
diagnose()
# }
Run the code above in your browser using DataLab