Кубическая регрессия в R

Question

Я пытаюсь подогнать кубическую кривую к моей диаграмме рассеяния. Я смог сделать это в минитабе без проблем, но мне трудно установить кубическую нелинейную регрессию для моих данных. мои данные устанавливается как:

AGE Value 
3 10 
4 10 
5 11 
5 13 
6 10 
7 9 
8 8 

Answer 1

См ?poly, который (по умолчанию) устанавливает дизайн матрицы готовый ортогональный многочлен заданной степени в диапазоне рентгеновских значений, рука к нему:

df <- read.table(text="AGE Value 
3 10 
4 10 
5 11 
5 13 
6 10 
7 9 
8 8", header=TRUE) 

lm(Value ~ poly(AGE, degree=3), data=df) 

# Call: 
# lm(formula = Value ~ poly(AGE, 3), data = df) 
# 
# Coefficients: 
# (Intercept) poly(AGE, 3)1 poly(AGE, 3)2 poly(AGE, 3)3 
#  10.1429  -2.0026  -2.3908   0.6019