poly.calcR言語のメソッド（polynomパッケージ）に実装されているラグランジュ補間を使用して問題を解決しようとしています。
基本的に、私の問題は、ラグランジュ補間を使用して特定の国の人口を予測することです。私は過去数年間（1961年から2014年）の人口を持っています。csvファイルはこちら
w1 = read.csv(file="country.csv", sep=",", head=TRUE)
array_x = w1$x
array_y = w1$y
#calls Lagrange Method
p = poly.calc(array_x, array_y)
#create a function to evaluate the polynom
prf <- as.function(p)
#create some points to plot
myx = seq(1961, 2020, 0.5)
#y's to plot
myy = prf(myx)
#plot
plot(myx, myy,col='blue')
その後、プロットされた曲線は減少し、y 軸は (非常に大きく) 負 (134 の累乗) になります。それは意味がありません。でも、5点くらい使えば正解です。