\Header{deriv}{Symbolic and Algorithmic Derivatives of Simple Expressions}
\alias{D}{deriv}
\methalias{deriv.default}{deriv}
\methalias{deriv.formula}{deriv}
\alias{deriv3}{deriv}
\methalias{deriv3.default}{deriv}
\methalias{deriv3.formula}{deriv}
\keyword{math}{deriv}
\keyword{nonlinear}{deriv}
\begin{Description}\relax
Compute derivatives of simple expressions, symbolically.\end{Description}
\begin{Usage}
\begin{verbatim}
    D (expr, name)
 deriv(expr, namevec, function.arg, tag = ".expr", hessian = FALSE)
deriv3(expr, namevec, function.arg, tag = ".expr", hessian = TRUE)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{expr}] \code{\Link{expression}} or \code{\Link{call}} to
be differentiated.
\item[\code{name,namevec}] character vector, giving the variable names (only
one for \code{D()}) with respect to which derivatives will be
computed.
\item[\code{function.arg}] If specified, a character vector of arguments for
a function return, or a function (with empty body) or \code{TRUE},
the latter indicating that a function with argument names
\code{namevec} should be used.
\item[\code{tag}] character; the prefix to be used for the locally created
variables in result.
\item[\code{hessian}] a logical value indicating whether the second derivatives
should be calculated and incorporated in the return value.
\end{ldescription}
\end{Arguments}
\begin{Details}\relax
\code{D} is modelled after its S namesake for taking simple symbolic
derivatives.

\code{deriv} is a \emph{generic} function with a default and a
\code{\Link{formula}} method.  It returns a \code{\Link{call}} for
computing the \code{expr} and its (partial) derivatives,
simultaneously.  It uses so-called \emph{``algorithmic
derivatives''}.  If \code{function.arg} is a function,
its arguments can have default values, see the \code{fx} example below.

Currently, \code{deriv.formula} just calls \code{deriv.default} after
extracting the expression to the right of \code{\textasciitilde{}}.

\code{deriv3} and its methods are equivalent to \code{deriv} and its
methods except that \code{hessian} defaults to \code{TRUE} for
\code{deriv3}.\end{Details}
\begin{Value}
\code{D} returns a call and therefore can easily be iterated
for higher derivatives.

\code{deriv} and \code{deriv3} normally return an
\code{\Link{expression}} object whose evaluation returns the function
values with a \code{"gradient"} attribute containing the gradient
matrix.  If \code{hessian} is \code{TRUE} the evaluation also returns
a \code{"hessian"} attribute containing the Hessian array.

If \code{function.arg} is specified, \code{deriv} and \code{deriv3}
return a function with those arguments rather than an expression.\end{Value}
\begin{References}\relax
Griewank, A.  and  Corliss, G. F. (1991)
\emph{Automatic Differentiation of Algorithms: Theory, Implementation,
and Application}.
SIAM proceedings, Philadelphia.\end{References}
\begin{SeeAlso}\relax
\code{\Link{nlm}} and \code{\Link{optim}} for numeric minimization
which could make use of derivatives,
\code{\Link{nls}} in package \code{nls}.\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
## formula argument :
dx2x <- deriv(~ x^2, "x") ; dx2x
expression({
         .value <- x^2
         .grad <- array(0, c(length(.value), 1), list(NULL, c("x")))
         .grad[, "x"] <- 2 * x
         attr(.value, "gradient") <- .grad
         .value
})
mode(dx2x)
x <- -1:2
eval(dx2x)

## Something `tougher':
trig.exp <- expression(sin(cos(x + y^2)))
( D.sc <- D(trig.exp, "x") )
all.equal(D(trig.exp[[1]], "x"), D.sc)

( dxy <- deriv(trig.exp, c("x", "y")) )
y <- 1
eval(dxy)
eval(D.sc)
stopifnot(eval(D.sc) ==
          attr(eval(dxy),"gradient")[,"x"])

## function returned:
deriv((ff <- y ~ sin(cos(x) * y)), c("x","y"), func = TRUE)
stopifnot(all.equal(deriv(ff, c("x","y"), func = TRUE ),
                    deriv(ff, c("x","y"), func = function(x,y){ } )))
## function with defaulted arguments:
(fx <- deriv(y ~ b0 + b1 * 2^(-x/th), c("b0", "b1", "th"),
             function(b0, b1, th, x = 1:7){} ) )
fx(2,3,4)

## Higher derivatives
deriv3(y ~ b0 + b1 * 2^(-x/th), c("b0", "b1", "th"),
     c("b0", "b1", "th", "x") )

## Higher derivatives:
DD <- function(expr,name, order = 1) {
   if(order < 1) stop("`order' must be >= 1")
   if(order == 1) D(expr,name)
   else DD(D(expr, name), name, order - 1)
}
DD(expression(sin(x^2)), "x", 3)
## showing the limits of the internal "simplify()" :

-sin(x^2) * (2 * x) * 2 + ((cos(x^2) * (2 * x) * (2 * x) + sin(x^2) *
    2) * (2 * x) + sin(x^2) * (2 * x) * 2)

\end{ExampleCode}
\end{Examples}

