R线性回归系数>  a<-read.csv("C:/e.csv")> a<-read.csv("C:/322.csv")
> lm.text<-lm(pretvsampleid~tvtype+onlineclick+searchrate+playloc+tvrate,data=a)
> summary(lm.text)

Call:
lm(formula = pretvsampleid ~ tvtype + onlineclick + searchrate +
    playloc + tvrate, data = a)

Residuals:
   Min     1Q Median     3Q    Max
-3239  -1188    -68   1384   4044

Coefficients:
            Estimate Std. Error t value Pr(>|t|)   
(Intercept)   3372.8      122.8  27.469  < 2e-16 ***
tvtype       -5297.3      261.1 -20.287  < 2e-16 ***
onlineclick   1238.7      252.5   4.906 9.51e-07 ***
searchrate    1453.7      100.6  14.449  < 2e-16 ***
playloc        620.3     2407.9   0.258    0.797   
tvrate        -509.8      109.8  -4.643 3.51e-06 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 1672 on 6062 degrees of freedom
Multiple R-squared:  0.09008,   Adjusted R-squared:  0.08932
F-statistic:   120 on 5 and 6062 DF,  p-value: < 2.2e-16


因为要做矩阵，所以需要每个元的系数。。。请问怎么得出来啊。。。