近似直線といえば最小二乗法なので、崎間先輩のとこのコードを参考に最小二乗法をサクッと実装してみた。 #最小二乗法を出力する関数 lsm<-function(x,y){ n<-length(x) sum_xy<-sum(x*y) sum_x<-sum(x) sum_x2<-sum(x^2) sum_y<-sum(y) a<-(n*sum_xy-sum_x*…