I encountered following problem: none of the regression models worked for all my data, so I decided to use all of the followings methods:

Code:

```
model.lm <- lm(price ~ .)
model.lmLog <- lm(log(price) ~ .)
model.ltsReg <- ltsReg(price ~ .)
model.ltsRegLog <- lts(log(price) ~ .)
model.lmrob <- lmrob(price ~ .)
model.lmrobLog <- lmrob(log(price) ~ .)
model.lmRob <- lmRob(price ~ .)
model.lmRobLog <- lmRob(log(price) ~ .)
model.glm <- glm(price ~ .)
model.glmLog <- glm(price ~ ., family=gaussian(link="log"))
```

As far as I know, the `r-squared` aren't trusty, because I the data is corrupted, so will be the `r-squared`.

Any ideas?

Thank you!