This report relates to the diameters of 100 randomly sampled parts.
url <- "https://raw.githubusercontent.com/tmatis12/datafiles/main/diameter.csv"
diameter <- read.csv(url)
diameter_log <- log(diameter)
head(diameter_log)
## Diameter
## 1 2.328350
## 2 2.305680
## 3 2.322682
## 4 2.326790
## 5 2.340748
## 6 2.282688