感慨统计学都还给老师了。。恶补！
R安装包的时候貌似需要用管理员权限启动，否则安装不了，国内镜像卡得渣渣，还是国外镜像真香~选择hongkong就好了。
install.packages("basicTrendline")
library(basicTrendline)
x1<-c(XXXXXXX)
y1<-c(XXXXXXX)
trendline(x1, y1, model="line2P", ePos.x = "topleft", summary=TRUE, eDigit=5)
