This data is a sample of 100 diameters or random sample parts.
url <- ('https://raw.githubusercontent.com/tmatis12/datafiles/main/diameter.csv')
diameter_log <- read.csv(url)
head(diameter_log)
## Diameter
## 1 10.261
## 2 10.031
## 3 10.203
## 4 10.245
## 5 10.389
## 6 9.803