Displaying 1 result from an estimated 1 matches for "expr19".
Did you mean:
expr1
2007 May 26
1
bug from nlm function (PR#9711)
...)- (x^a)/(b^a))
> fllwfuncH <-deriv(fllwform,c("a","b"),function(a,b,x){})
> fllwfuncH
function (a, b, x)
{
.expr2 <- log(b)
.expr4 <- a - 1
.expr5 <- log(x)
.expr6 <- .expr5 - .expr2
.expr9 <- x^a
.expr10 <- b^a
.expr19 <- .expr10^2
.expr23 <- 1/b
.value <- log(a) - .expr2 - .expr4 * .expr6 - .expr9/.expr10
.grad <- array(0, c(length(.value), 2), list(NULL, c("a",
"b")))
.grad[, "a"] <- 1/a - .expr6 - (.expr9 * .expr5/.expr10 -
.e...