glm()関数を使って多項式近似をするも、さらさらと近似曲線を描く方法が見つからなかったので、作ってみた # Function to estimate polynomial coefficients and coordinates estimated # 多項式近似の係数と、推定座標を返す関数 glmPolynomial<-function(y…