Here is a regression and the summary output for a project I am working on:
Reg <- lm(LogLeadTime ~Predictor, data = Data) Estimate