変換テーブル（前の 2 つの記事）のかわりに，変換多項式を使う > x = 1:4> y = c(11, 13, 15, 50)> lm(y ~ x+I(x^2)+I(x^3))Call:lm(formula = y ~ x + I(x^2) + I(x^3))Coefficients:(Intercept) x I(x^2) I(x^3) -24.0 62.5 -33.0 5.5 > f = function(x) …

15, 34, 52, 99 をそれぞれ 3, 5, 9, 15 に変換する > x = integer(100)> x[15] = 3> x[34] = 5> x[52] = 9> x[99] = 15> x[c(34, 52, 99, 15, 34, 99)][1] 5 9 15 3 5 15