# NOT RUN {
# Diagnosis of numerical variables
diagnose_numeric(heartfailure)
# Select the variable to diagnose
diagnose_numeric(heartfailure, cpk_enzyme, sodium)
diagnose_numeric(heartfailure, -cpk_enzyme, -sodium)
diagnose_numeric(heartfailure, "cpk_enzyme", "sodium")
diagnose_numeric(heartfailure, 5)
# Using pipes ---------------------------------
library(dplyr)
# Diagnosis of all numerical variables
heartfailure %>%
diagnose_numeric()
# Positive values select variables
heartfailure %>%
diagnose_numeric(cpk_enzyme, sodium)
# Negative values to drop variables
heartfailure %>%
diagnose_numeric(-cpk_enzyme, -sodium)
# Positions values select variables
heartfailure %>%
diagnose_numeric(5)
# Positions values select variables
heartfailure %>%
diagnose_numeric(-1, -5)
# Using pipes & dplyr -------------------------
# List of variables containing outliers
heartfailure %>%
diagnose_numeric() %>%
filter(outlier > 0)
# }
Run the code above in your browser using DataLab