・お題:データが出たので、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(X, Y)> df1 ・プロットする。 > p1 = ggplot(data = df1, mapping = aes(x = X, y = Y))++ geom_point(size = 2,…