#Run this code to load up the R packages you are familiar with from class
suppressPackageStartupMessages({
library(coursekata)
})
cor(Thumb~Height, data=Fingers)^2
Height_model<-lm(Thumb~Height, data=Fingers)
Height_model
supernova(Height_model)