<div dir="ltr">André, <div>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.</div><div><br></div><div><br></div><div><div>newtonRaphson <- function (x) {</div><div>  x - ((exp(-x^2) - x^3 + 2)  / (-2 * exp(-x^2) - 3 * x^2))</div><div>}</div><div><br></div><div>x <- 0.5    # valor inicial </div><div>old <- 0    # valor anterior </div><div>tol <- 0.0001</div><div><b>y <- x</b></div><div><br></div><div>while (abs(old - x) > tol) {</div><div>  old <- x</div><div>  x <- newtonRaphson(x)  # Repetir se delta x maior  tol</div><div>  <b>y <- c(y, x)</b></div><div>}</div><div><br></div><div>print(paste("Raiz: ", x))</div></div></div>