# 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)
# }
Run the code above in your browser using DataLab