我也知道大概的思路,不过当时瞅了半天也没想起来arctan求导数是啥样子的……
> deriv(~atan(x),'x')<br />
expression({<br />
.value <- atan(x)<br />
.grad <- array(0, c(length(.value), 1L), list(NULL, c("x")))<br />
.grad[, "x"] <- 1/(1 + x^2)<br />
attr(.value, "gradient") <- .grad<br />
.value<br />
})