install.packages('openxlsx')
library(openxlsx)
yx=read.xlsx('mvstats4.xlsx','d4.3',rowNames=TRUE)
yx
fm = lm(y~x,data=yx)###求常数项和系数###
fm
plot(y~x,data=yx)###作图###
abline(fm)
anova(fm) ###方差分析###

summary(fm)