# Function to estimate polynomial coefficients and coordinates estimated # 多項式近似の係数と、推定座標を返す関数 glmPolynomial<-function(y,x,dg,X){# y:dependent values (従属値列),x:descriptive values (説明変数),dg:degrees of polynomials (…