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