・お題：データが出たので、Fittingしてみたい。 ・とりあえずデータセットを作成する。 >library(tidyverse) > set.seed(1)> X = seq(0, 10, length = 11)> Y = (X - 1)*(X - 5)*(X - 8)> d1 = rnorm(11, mean = 0, sd = 10)> Y = Y + d1> df1 = data.frame…