Rで線形近似

Rで線形近似

x<-1:10
y<-x^2
plot(x,y)
points(x,predict(lm(x~y)),col=2)