```
# NOT RUN {
data(haldCement)
if( interactive() ){
pairs( haldCement )
}
m <- lm( y ~ x1 + x2 + x3 + x4, data=haldCement )
summary( m )
# Notice: The model explains practically all variation in data;
# yet none of the explanatory variables appear to be statistically
# significant...
# }
```

Run the code above in your browser using DataLab