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]


kylec/testPackage documentation built on May 30, 2019, 8:14 a.m.