> lm.text<-lm(tvrate~tvtype+onlineclick+searchrate+playloc+fans,data=a)
> summary(lm.text)

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

Residuals:
     Min       1Q   Median       3Q      Max
-0.42732 -0.12158 -0.03707  0.10037  0.66008

Coefficients:
            Estimate Std. Error t value Pr(>|t|)   
(Intercept)  0.40942    0.01333  30.710  < 2e-16 ***
tvtype       0.39872    0.03018  13.212  < 2e-16 ***
onlineclick -0.03775    0.02945  -1.282      0.2   
searchrate   0.23705    0.01134  20.900  < 2e-16 ***
playloc     -5.16824    0.27434 -18.839  < 2e-16 ***
fans         0.08925    0.01601   5.573 2.61e-08 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.195 on 6062 degrees of freedom
Multiple R-squared:  0.1565,    Adjusted R-squared:  0.1558
F-statistic: 224.9 on 5 and 6062 DF,  p-value: < 2.2e-16

>



我想请问一下，假如我想设定这个回归系数是在（—1，1)之间，应该怎么写，