We are discussing the importance of diameter when measuring the durability of a basketball.
Then we took the log value of the diameters given:
{Log.Diameter <- c(log(dat2))} dat3 <- data.frame(Log.Diameter)
The log of the diameter and the diameter of the basketball are related
\[ log(dat2) + dat2 \]
With this you can compute the durability of a basketball