学步园

> x<-read.table("a.txt")<br /> > names(x)<br /> [1] "V1" "V2"<br /> > length(x)<br /> [1] 2<br /> > length(V1)<br /> 错误: 找不到这个对象"V1"<br /> > length(x$V1)<br /> [1] 2050<br /> > length(x$V2)<br /> [1] 2050<br /> > plot(x$V1,x$V2)<br />

> plot(x$V1,x$V2,type="l")<br /> > yx<-lm(x$V2~x$V1)<br /> > summary(yx)<br /> Call:<br /> lm(formula = x$V2 ~ x$V1)<br /> Residuals:<br /> Min 1Q Median 3Q Max<br /> -171.85 -50.78 -12.08 47.70 218.90<br /> Coefficients:<br /> Estimate Std. Error t value Pr(>|t|)<br /> (Intercept) -252.9587 5.6706 -44.61 <2e-16 ***<br /> x$V1 0.4014 0.0025 160.53 <2e-16 ***<br /> ---<br /> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1<br /> Residual standard error: 66.99 on 2048 degrees of freedom<br /> Multiple R-squared: 0.9264, Adjusted R-squared: 0.9263<br /> F-statistic: 2.577e+04 on 1 and 2048 DF, p-value: < 2.2e-16<br /> > plot(x$V2~x$V1);abline(yx,col= "blue")<br />