library(ggplot2) library(tidyverse) load_data() priemel %>% mutate(bone_quality = ifelse(OV.BV <=2, 1,0)) ggplot(priemel, aes(x=SerumLevelInNgPerMl, y=OV.BV)) + geom_point()
#TODO: split data into training / testing set.seed(10) #dim(priemel)[1]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.