# NOT RUN {
# Standardization ------------------------------
creatinine_minmax <- transform(heartfailure$creatinine, method = "minmax")
creatinine_minmax
summary(creatinine_minmax)
plot(creatinine_minmax)
# Resolving Skewness --------------------------
creatinine_log <- transform(heartfailure$creatinine, method = "log")
creatinine_log
summary(creatinine_log)
# plot(creatinine_log)
# plot(creatinine_log, typographic = FALSE)
# Using dplyr ----------------------------------
library(dplyr)
heartfailure %>%
mutate(creatinine_log = transform(creatinine, method = "log+1")) %>%
lm(sodium ~ creatinine_log, data = .)
# }
Run the code above in your browser using DataLab