Displaying 3 results from an estimated 3 matches for "actualarg".
Did you mean:
actualargs
2004 May 14
2
NLME model question
...i have attempted to construct a self starting routine for nlme ie:
SSGrowth_function(x, r, k)
{
.expr2 <- (k - 100000)/100000
.expr5 <- exp(((r * -1) * x))
.expr7 <- 1 + (.expr2 * .expr5)
.expr13 <- .expr7^2
.value <- k/.expr7
.actualArgs <- match.call()[c("r", "k")]
if(all(unlist(lapply(as.list(.actualArgs), is.name)))) {
.grad <- array(0, c(length(.value), 2), list(NULL, c("r",
"k")))
.grad[, "r"] <- - ((k * (.expr2 * (.expr5 *...
2010 Apr 12
0
How to derive function for parameters in Self start model in nls
...nction of parameters. and also which model to use for get
the initials values. In the following example's the red color coding
requires the explanation??
thanks
SSgompertz
function (x, Asym, b2, b3)
{
.expr2 <- b3^x
.expr4 <- exp(-b2 * .expr2)
.value <- Asym * .expr4
.actualArgs <- as.list(match.call()[c("Asym", "b2", "b3")])
if (all(unlist(lapply(.actualArgs, is.name)))) {
.grad <- array(0, c(length(.value), 3L), list(NULL, c("Asym",
"b2", "b3")))
.grad[, "Asym"] &...
2001 May 01
0
SSfpl self-start sometimes fails... workaround proposed
...---------------------------------------
fpl <- function (input, A, B, xmid, scal)
{
.expr1 <- B - A
.expr2 <- xmid - input
.expr4 <- exp((.expr2/scal))
.expr5 <- 1 + .expr4
.expr8 <- 1/.expr5
.expr13 <- .expr5^2
.value <- A + (.expr1/.expr5)
.actualArgs <- as.list(match.call()[c("A", "B", "xmid", "scal")])
if (all(unlist(lapply(.actualArgs, is.name)))) {
.grad <- array(0, c(length(.value), 4), list(NULL, c("A", "B",
"xmid", "scal")))
.grad[,...