R语言进行线性回归

install.packages("readxl")
library("readxl")

data<- read_excel("D:/data/regdata.xlsx")
data
myfit<-lm(formula='y~x',data)
summary(myfit)

Call:
lm(formula = "y~x", data = data)

Residuals:
    Min      1Q  Median      3Q     Max 
-16.896  -6.990  -1.197   6.547  27.935 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)   6.9963     2.5460   2.748  0.00714 ** 
x            20.4548     0.4183  48.904  < 2e-16 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 9.548 on 98 degrees of freedom
Multiple R-squared:  0.9606,	Adjusted R-squared:  0.9602 
F-statistic:  2392 on 1 and 98 DF,  p-value: < 2.2e-16