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