Adjusted R square

["Kim, YunSuk" <YunSuk.Kim@oregonstate.edu>]

Hi all,

 

Earlier I asked for a method to obtain Partial R square for each variable in a model.  I also need the adjusted R square value from a regression model. 

 

In the archive, I found someone gave the code;

 

model1<-lm(y<-x1+x2)
test <-(summary(model1))$adj.r.squared

 

When I tried this, I got NULL.  Has the function changed since last 4 years or so?  If anyone can show me how to obtain adjusted R2 (and Partial R2 too), i really appreciate it. 

 

Thank you for any help!

 

yuni