R最小二乘法，曲线拟合基础

首先简要介绍一下最小二乘法
在我们研究两个变量（x,y）之间的相互关系时，通常可以得到一系列成对的数据（x1,y1.x2,y2… xm,ym）；将这些数据描绘在x -y直角坐标系中，若发现这些点在一条直线附近，可以令这条直线方程如y=a0+a1x（式1-1）
现在我们随便给三个点(1,2),(2,2),(3,1)，先看一下散点图

x<-c(1,2,3)
y<-c(2,2,1)
#求相关性
Correlation(x,y)
[1]0.9942198
#相关性算法
#Correlation<- function(x,y) {
#  len<-length(x)
#  if( len !=