Convert results of ols() from 'rms' package to lm() from 'stats' package.
ols2lm(fit)
fit
reults of ols()
results of lm()
library(rms) fit <- ols(mpg ~ disp^2,data=mtcars) ols2lm(fit)