Something like:
> x = runif(10)
> y = rnorm(x)
> fm = lm(y~x)
> summary(fm)[c("r.squared", "adj.r.squared")]
$r.squared
[1] 0.03385419
$adj.r.squared
[1] -0.08691404
[They are computed by summary.lm(), not lm().]
HTH,
Andy
> From: John Sorkin
>
> I would like to get R2 (and and adjusted R2) from an lm. I know I can
> compute R2 (SSreg/SStotal), but it would be nice to know if I
> could get
> if automatically, e.g.
> fit1<-lm(y~x)
> Rsq<-fit1$rSquare.
>
> R2.1.0 Patched under Windows 2000
>
> Thanks,
> John
>
> John Sorkin M.D., Ph.D.
> Chief, Biostatistics and Informatics
> Baltimore VA Medical Center GRECC and
> University of Maryland School of Medicine Claude Pepper OAIC
>
> University of Maryland School of Medicine
> Division of Gerontology
> Baltimore VA Medical Center
> 10 North Greene Street
> GRECC (BT/18/GR)
> Baltimore, MD 21201-1524
>
> 410-605-7119
> -- NOTE NEW EMAIL ADDRESS:
> jsorkin at grecc.umaryland.edu
>
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
> http://www.R-project.org/posting-guide.html
>
>
>