Wykorzystanie przewidywania do znalezienia wartości modelu nieliniowego

Próbuję następny kod, aby spróbować sprawdzić, czy przewidywanie może pomóc mi znaleźć wartości zmiennej zależnej dla wielomianu rzędu 2, w tym przypadku jest oczywiste, że y = x ^ 2:

x <- c(1, 2, 3, 4, 5 , 6)
y <- c(1, 4, 9, 16, 25, 36)
mypol <- lm(y ~ poly(x, 2, raw=TRUE))

> mypol

Call:
lm(formula = y ~ poly(x, 2, raw = TRUE))

Coefficients:
            (Intercept)  poly(x, 2, raw = TRUE)1  poly(x, 2, raw = TRUE)2  
                      0                        0                        1  

Jeśli spróbuję znaleźć wartość x = 7, otrzymuję to:

> predict(mypol, 7)
Error in eval(predvars, data, env) : not that many frames on the stack

Co ja robię źle?

questionAnswers(1)

yourAnswerToTheQuestion