vitd <- read.csv2("http://publicifsv.sund.ku.dk/~lts/basal/data/VitaminD.txt")