R help - Jan 2006 - rsq.rpart is there any R-Square value like in SPSS?

I found in the fullrefman only the function rsq.rpart with the search tearm
r-square or rsquare.

SPSS returnes the R Square an i am not albe to found the value in R

Maybe there is another name for it



Model Summary(d)

Model    R       R Square    Adjusted R Square    Std. Error of the Estimate

1       ,768(a)       ,589             ,584                        171,032



Regards Knut

I guess you want the Multiple R-Squared for a linear model.  You can get 
that by using summary() on a linear model.  For example:

ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
group <- gl(2,10,20, labels=c("Ctl","Trt"))
weight <- c(ctl, trt)
lm.D9 <- lm(weight ~ group)
summary(lm.D9)
summary(lm.D9)$r.squared
summary(lm.D9)$adj.r.squared

Knut Krueger wrote:
> I found in the fullrefman only the function rsq.rpart with the search tearm
r-square or rsquare.
> 
> SPSS returnes the R Square an i am not albe to found the value in R
> 
> Maybe there is another name for it
> 
> 
> 
> Model Summary(d)
> 
> Model    R       R Square    Adjusted R Square    Std. Error of the
Estimate
> 
> 1       ,768(a)       ,589             ,584                        171,032
> 
> 
> 
> Regards Knut
> 
> ______________________________________________
> 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
> 
-- 
Chuck Cleland, Ph.D.
NDRI, Inc.
71 West 23rd Street, 8th floor
New York, NY 10010
tel: (212) 845-4495 (Tu, Th)
tel: (732) 452-1424 (M, W, F)
fax: (917) 438-0894

Chuck Cleland schrieb:
> I guess you want the Multiple R-Squared for a linear model.  You can 
> get that by using summary() on a linear model.  For example:
>
> ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
> trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
> group <- gl(2,10,20, labels=c("Ctl","Trt"))
> weight <- c(ctl, trt)
> lm.D9 <- lm(weight ~ group)
> summary(lm.D9)
> summary(lm.D9)$r.squared
> summary(lm.D9)$adj.r.squared
sure .. I was complete on the wrong way because I used the search
function :-(
used the summary more than one time ....


Regards Knut