R/differential-component.r

In salad: Simple Automatic Differentiation

Defines functions component

# extracts a component
component <- function(x, var) {
  if(is.null(x[[var]])) {
    R <- x[[1]]
    R[] <- 0
    return(R)
  }
  x[[var]]
}

Try the salad package in your browser