R线性拟合

lm(ET ~ NEE,inputfile)

Call:
lm(formula = ET ~ NEE, data = inputfile)

Coefficients:
(Intercept) NEE
0.003432 -0.055914

summary(lm)
Error in object[[i]] : 类别为’closure’的对象不可以取子集
summary(lm.inputfile)
Error in summary(lm.inputfile) : 找不到对象’lm.inputfile’
summary(lm(ET ~ NEE,inputfile))

Call:
lm(formula = ET ~ NEE, data = inputfile)

Residuals:
Min 1Q Median 3Q Max
-0.008059 -0.002812 -0.002063 0.003586 0.008340

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.0034321 0.0006155 5.576 1.25e-06 ***
NEE -0.0559141 0.0887982 -0.630 0.532

Signif. codes: 0 ‘’ 0.001 ‘’ 0.01 ‘’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.004008 on 46 degrees of freedom
Multiple R-squared: 0.008546, Adjusted R-squared: -0.01301
F-statistic: 0.3965 on 1 and 46 DF, p-value: 0.532

ab<-round( lm(ET ~ NEE,inputfile)$coefficients[1],3)

bb<-round(lm(ET ~ NEE,inputfile)$coefficients[2],3)

plot(inputfile $ ET,inputfile $ NEE,xlab=“ET”,ylab = “NEE”,col=“red”,pch="*")

abline(lm(ET ~ NEE,inputfile),col=“blue”)

text(mean(inputfile $ ET),max(inputfile $ NEE),paste(“y = “,bb,“x+(”,ab,”)”,sep = “”))