好像是 用 summary(model) [9]是R-square吧

model = lm（）

[em01]

for example:

 x<-seq(from=-10,to=5,by=0.5)
 y<-3.4*x+2.5+rnorm(n=length(x),mean=0,sd=3)
 result<-lm(y~x)
 sum(result$res^2)/result$df   # This is the estimated squared sd of the error

或可用

summary(lm(y ~ x))$sigma

你可以察看命令names(mod)来找你需要的任何东西，其中mod是拟和的模型