r - 関数から出力を取得する方法は?

Question

次の関数の最後にコードを追加して、list(Root = xnew, Value = f(xnew), Iterations=i)ルート、値、反復をすべて出力しましたが、得られた値はxnew. この問題を修正するにはどうすればよいですか?

fixedpoint <- function(fun, x0, tol=1e-08, max.iter=40){
    xold <- x0
    xnew <- fun(xold)
    for (i in 1:max.iter) {
    xold <- xnew
    xnew <- f(xold)
    if ( abs((xnew-xold)) < tol )
        return(xnew)
    }
    stop("max iterations = 20")
}