Solution (source code)

= Solution

Use the <R linear-model formula> with only its implicit intercept:

`fit1 <- lm(log(price) ~ 1, data = cars)`

This models every log-price by one common mean plus an error term.