Displaying 1 result from an estimated 1 matches for "fllwfunchnew".
2007 May 26
1
bug from nlm function (PR#9711)
....expr9 * (.expr10 * .expr2)/.expr19)
.grad[, "b"] <- -(.expr23 - .expr4 * .expr23 - .expr9 * (b^.expr4 *
a)/.expr19)
attr(.value, "gradient") <- .grad
.value
}
2. change the x argument on fllwfuncH function to data with n>1 (on fnlmw file)
fllwfuncHnew <-
function (a, b, x)
{
.n<-length(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 <- .n*(log(a) - .expr2) - ....