deriv Function and pulling out the answer.

[Ken Kelley <KKelley@ND.EDU>]

Hello everyone,

I was wondering if there is a way to pull the expression out of the 
deriv function.  I get an answer but there does not seem to be an 
obvious way of pulling the answer out to use in other ways.  Any help 
would be appreciated.  I'm using S Plus 2000 on Windows NT.
> deriv.formula((Y ~ G^5 + 2*G), "G")
expression({
   .value <- (G^5) + (2 * G)
   .grad <- array(0, c(length(.value), 1), list(
       NULL, "G"))
   .grad[, "G"] <- (5 * (G^4)) + 2
   attr(.value, "gradient") <- .grad
   .value
}
)

Is there a way to pull out the (5*(G^4)) + 2?

Thanks,
Ken