Построение кубы c регрессия в R

Question

Я хочу сделать кубическую c регрессию по пяти точкам данных: (1024, 1), (4096, 8), (16384, 16), (65536, 16), (262144, 48). Я не обычный пользователь R, поэтому я провел небольшое исследование. Первое, что я делаю, это ( source ):

df <- read.table(text="GRID Value 1024   1 4096   8 16384   16 65536  
16 262144   48", header=TRUE)

Затем

plot(q, df,type='b',col='navy',main='Nonlinear relationship',lwd=3)

Но график, который я получаю, - это просто "соединение точек" , а не реальная регрессия кубического c (см. ниже). Буду признателен за помощь в решении этой проблемы.

Answer 1

df <- read.table(text="
GRID Value
1024   1
4096   8
16384  16
65536  16
262144  48", header=TRUE)

mod=lm(Value~poly(GRID,3),data=df)

plot(df$Value~df$GRID)
lines(predict(mod,data.frame(GRID=seq(0,max(df$GRID),1)))~seq(0,max(df$GRID),1))

Вот пример того, как оценить функцию cubi c из ваших данных, обратите внимание на плохое соответствие.