Displaying 2 results from an estimated 2 matches for "expr6".
Did you mean:
expr
2007 Jan 12
1
incorrect result of deriv (PR#9449)
...rm(z, 0, s)
.grad <- array(0, c(length(.value), 1), list(NULL, c("z")))
.grad[, "z"] <- -(z * dnorm(z))
attr(.value, "gradient") <- .grad
.value
})
deriv(~exp(-z^2/(2*s^2))/s/sqrt(2*pi),"z")
expression({
.expr4 <- 2 * s^2
.expr6 <- exp(-z^2/.expr4)
.expr9 <- sqrt(2 * pi)
.value <- .expr6/s/.expr9
.grad <- array(0, c(length(.value), 1), list(NULL, c("z")))
.grad[, "z"] <- -(.expr6 * (2 * z/.expr4)/s/.expr9)
attr(.value, "gradient") <- .grad
.value
})
s...
2007 May 26
1
bug from nlm function (PR#9711)
...tin with n=1 data
>fllwform<-formula(~log(a)-log(b)-(a-1)*(log(x)-log(b))- (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")))
.gr...