Knut Krueger
2006-Jan-16 19:35 UTC
[R] 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
Chuck Cleland
2006-Jan-16 19:43 UTC
[R] rsq.rpart is there any R-Square value like in SPSS?
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
Knut Krueger
2006-Jan-16 20:39 UTC
[R] rsq.rpart is there any R-Square value like in SPSS?
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.squaredsure .. I was complete on the wrong way because I used the search function :-( used the summary more than one time .... Regards Knut