# NOT RUN {
# Diagnosis of numerical variables
diagnose_outlier(heartfailure)
# Select the variable to diagnose
diagnose_outlier(heartfailure, cpk_enzyme, sodium)
diagnose_outlier(heartfailure, -cpk_enzyme, -sodium)
diagnose_outlier(heartfailure, "cpk_enzyme", "sodium")
diagnose_outlier(heartfailure, 5)
# Using pipes ---------------------------------
library(dplyr)
# Diagnosis of all numerical variables
heartfailure %>%
diagnose_outlier()
# Positive values select variables
heartfailure %>%
diagnose_outlier(cpk_enzyme, sodium)
# Negative values to drop variables
heartfailure %>%
diagnose_outlier(-cpk_enzyme, -sodium)
# Positions values select variables
heartfailure %>%
diagnose_outlier(5)
# Positions values select variables
heartfailure %>%
diagnose_outlier(-1, -5)
# Using pipes & dplyr -------------------------
# outlier_ratio is more than 1%
heartfailure %>%
diagnose_outlier() %>%
filter(outliers_ratio > 1)
# }
Run the code above in your browser using DataLab