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