Skip to content

Instantly share code, notes, and snippets.

@karan19100

karan19100/model_improvement.R

Created July 18, 2020 20:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save karan19100/854643ddd3132f0c08ea88acd2ff65e4 to your computer and use it in GitHub Desktop.
Save karan19100/854643ddd3132f0c08ea88acd2ff65e4 to your computer and use it in GitHub Desktop.
Download ZIP
model_improvement_by_karanshah
Raw
model_improvement.R
newdata1 <- setNames(cbind(rownames(newdata), newdata, row.names = NULL),
c("OBS", "HEMAGLOBIN", "HEMATOCRIT"))
newdata1$OUTLIER = ifelse(newdata1$OBS %in% c(159,166,169),"Y","N") # create condition Yes/No if outlier
qplot(HEMATOCRIT, HEMAGLOBIN, data = newdata1, colour = OUTLIER,
main = "HEMAGLOBIN and HEMATOCRIT relationship") +
theme(plot.title = element_text(hjust = 0.5)) +
scale_y_continuous(breaks = c(30:65), minor_breaks = NULL) +
scale_x_continuous(breaks = c(10:25), minor_breaks = NULL)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment