谢谢!搞定了
<br />
> summary(lm(log10(pk)~log10(degree),data=scal))<br />
<br />
Call:<br />
lm(formula = log10(pk) ~ log10(degree), data = scal)<br />
<br />
Residuals:<br />
Min 1Q Median 3Q Max<br />
-0.42437 -0.16209 0.05489 0.15132 0.43449<br />
<br />
Coefficients:<br />
Estimate Std. Error t value Pr(>|t|)<br />
(Intercept) -0.6211 0.1439 -4.316 0.000416 ***<br />
log10(degree) -0.9080 0.1416 -6.412 4.9e-06 ***<br />
---<br />
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1<br />
<br />
Residual standard error: 0.2374 on 18 degrees of freedom<br />
Multiple R-Squared: 0.6955, Adjusted R-squared: 0.6786<br />
F-statistic: 41.12 on 1 and 18 DF, p-value: 4.898e-06<br />