Why is LM not being coerced?

MyThird <- lm(PRICE ~ SPEC.FEATS, data = HOUSEDATA)

Error in as.data.frame.default(data) : cannot coerce class ‘"lm"’ to a data.frame