I noticed that you have set pent to be greater than prem but shouldn't pent to be less than prem?
pent p value; variables with p value less than pent will enter into the model.
prem p value; variables with p more than prem will be removed from the model.
If that is very large, due to a large data set, can you run lm() on a subset of your data and post the result of running dput() on the that model1? Put a line with three back ticks just before and just after the dput() output, like this
```
dput() output here
```