André,
se eu entendi bem o que você quer fazer, criar uma variável (y) para
receber os valores de x a cada iteração resolveria.
newtonRaphson <- function (x) {
x - ((exp(-x^2) - x^3 + 2) / (-2 * exp(-x^2) - 3 * x^2))
}
x <- 0.5 # valor inicial
old <- 0 # valor anterior
tol <- 0.0001
*y <- x*
while (abs(old - x) > tol) {
old <- x
x <- newtonRaphson(x) # Repetir se delta x maior tol
*y <- c(y, x)*
}
print(paste("Raiz: ", x))
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
