This is the main body
This not the main body
dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/diameter.csv")