/dports/math/R/R-4.1.2/src/library/stats/man/ |
H A D | SSasymp.Rd | 10 SSasymp(input, Asym, R0, lrc) 15 \item{Asym}{a numeric parameter representing the horizontal asymptote on 33 the expression \code{Asym+(R0-Asym)*exp(-exp(lrc)*input)}. If all of 34 the arguments \code{Asym}, \code{R0}, and \code{lrc} are 47 Asym <- 100 ; resp0 <- -8.5 ; lrc <- -3.2 48 SSasymp( Lob.329$age, Asym, resp0, lrc) # response _and_ gradient 50 getInitial(height ~ SSasymp( age, Asym, resp0, lrc), data = Lob.329) 52 fm1 <- nls(height ~ SSasymp( age, Asym, resp0, lrc), data = Lob.329) 58 ## Asym + (R0-Asym) * exp(-exp(lrc)* x) : 60 stopifnot( all.equal(yy, SSasymp(xx, Asym = 5, R0 = 1, lrc = -3/4)) ) [all …]
|
H A D | SSlogis.Rd | 10 SSlogis(input, Asym, xmid, scal) 15 \item{Asym}{a numeric parameter representing the asymptote.} 18 \code{Asym/2} at \code{xmid}.} 24 creates initial estimates of the parameters \code{Asym}, 30 the expression \code{Asym/(1+exp((xmid-input)/scal))}. If all of 31 the arguments \code{Asym}, \code{xmid}, and \code{scal} are 42 Asym <- 368; xmid <- 14; scal <- 6 43 SSlogis(Chick.1$Time, Asym, xmid, scal) # response _and_ gradient 45 getInitial(weight ~ SSlogis(Time, Asym, xmid, scal), data = Chick.1) 47 fm1 <- nls(weight ~ SSlogis(Time, Asym, xmid, scal), data = Chick.1) [all …]
|
H A D | SSgompertz.Rd | 9 SSgompertz(x, Asym, b2, b3) 14 \item{Asym}{a numeric parameter representing the asymptote.} 22 creates initial estimates of the parameters \code{Asym}, 27 the expression \code{Asym*exp(-b2*b3^x)}. If all of 28 the arguments \code{Asym}, \code{b2}, and \code{b3} are 38 local({ Asym <- 4.5; b2 <- 2.3; b3 <- 0.7 39 SSgompertz(log(DNase.1$conc), Asym, b2, b3) # response _and_ gradient 41 print(getInitial(density ~ SSgompertz(log(conc), Asym, b2, b3), 44 fm1 <- nls(density ~ SSgompertz(log(conc), Asym, b2, b3), 51 As <- coef(fm1)[["Asym"]]; abline(v = 0, h = 0, lty = 3)
|
H A D | SSasympOrig.Rd | 11 SSasympOrig(input, Asym, lrc) 15 \item{Asym}{a numeric parameter representing the horizontal asymptote.} 23 parameters \code{Asym} and \code{lrc} for a given set of data. 27 the expression \code{Asym*(1 - exp(-exp(lrc)*input))}. If all of 28 the arguments \code{Asym} and \code{lrc} are 38 local({ Asym <- 100; lrc <- -3.2 39 SSasympOrig(Lob.329$age, Asym, lrc) # response and gradient 41 getInitial(height ~ SSasympOrig(age, Asym, lrc), data = Lob.329) 43 fm1 <- nls(height ~ SSasympOrig(age, Asym, lrc), data = Lob.329) 51 stopifnot( all.equal(yy, SSasympOrig(xx, Asym = 5, lrc = log(log(2)))) ) [all …]
|
H A D | SSweibull.Rd | 9 SSweibull(x, Asym, Drop, lrc, pwr) 14 \item{Asym}{a numeric parameter representing the horizontal asymptote on 17 \code{Asym} to the \code{y} intercept.} 26 will evaluate initial estimates of the parameters \code{Asym}, \code{Drop}, 31 the expression \code{Asym-Drop*exp(-exp(lrc)*x^pwr)}. If all of 32 the arguments \code{Asym}, \code{Drop}, \code{lrc}, and \code{pwr} are 50 local({ Asym <- 160; Drop <- 115; lrc <- -5.5; pwr <- 2.5 51 SSweibull(Chick.6$Time, Asym, Drop, lrc, pwr) # response _and_ gradient 54 getInitial(weight ~ SSweibull(Time, Asym, Drop, lrc, pwr), data = Chick.6) 57 fm1 <- nls(weight ~ SSweibull(Time, Asym, Drop, lrc, pwr), data = Chick.6) [all …]
|
H A D | SSasympOff.Rd | 10 SSasympOff(input, Asym, lrc, c0) 15 \item{Asym}{a numeric parameter representing the horizontal asymptote on 28 \code{Asym}, \code{lrc}, and \code{c0}. 32 the expression \code{Asym*(1 - exp(-exp(lrc)*(input - c0)))}. If all of 33 the arguments \code{Asym}, \code{lrc}, and \code{c0} are 45 local({ Asym <- 32; lrc <- -4; c0 <- 43 46 SSasympOff(CO2.Qn1$conc, Asym, lrc, c0) # response and gradient 48 getInitial(uptake ~ SSasympOff(conc, Asym, lrc, c0), data = CO2.Qn1) 50 fm1 <- nls(uptake ~ SSasympOff(conc, Asym, lrc, c0), data = CO2.Qn1) 57 stopifnot( all.equal(yy, SSasympOff(xx, Asym = 5, lrc = log(0.4), c0 = 3/4)) ) [all …]
|
/dports/math/libRmath/R-4.1.1/src/library/stats/man/ |
H A D | SSasymp.Rd | 10 SSasymp(input, Asym, R0, lrc) 15 \item{Asym}{a numeric parameter representing the horizontal asymptote on 33 the expression \code{Asym+(R0-Asym)*exp(-exp(lrc)*input)}. If all of 34 the arguments \code{Asym}, \code{R0}, and \code{lrc} are 47 Asym <- 100 ; resp0 <- -8.5 ; lrc <- -3.2 48 SSasymp( Lob.329$age, Asym, resp0, lrc) # response _and_ gradient 50 getInitial(height ~ SSasymp( age, Asym, resp0, lrc), data = Lob.329) 52 fm1 <- nls(height ~ SSasymp( age, Asym, resp0, lrc), data = Lob.329) 58 ## Asym + (R0-Asym) * exp(-exp(lrc)* x) : 60 stopifnot( all.equal(yy, SSasymp(xx, Asym = 5, R0 = 1, lrc = -3/4)) ) [all …]
|
H A D | SSlogis.Rd | 10 SSlogis(input, Asym, xmid, scal) 15 \item{Asym}{a numeric parameter representing the asymptote.} 18 \code{Asym/2} at \code{xmid}.} 24 creates initial estimates of the parameters \code{Asym}, 30 the expression \code{Asym/(1+exp((xmid-input)/scal))}. If all of 31 the arguments \code{Asym}, \code{xmid}, and \code{scal} are 42 Asym <- 368; xmid <- 14; scal <- 6 43 SSlogis(Chick.1$Time, Asym, xmid, scal) # response _and_ gradient 45 getInitial(weight ~ SSlogis(Time, Asym, xmid, scal), data = Chick.1) 47 fm1 <- nls(weight ~ SSlogis(Time, Asym, xmid, scal), data = Chick.1) [all …]
|
H A D | SSgompertz.Rd | 9 SSgompertz(x, Asym, b2, b3) 14 \item{Asym}{a numeric parameter representing the asymptote.} 22 creates initial estimates of the parameters \code{Asym}, 27 the expression \code{Asym*exp(-b2*b3^x)}. If all of 28 the arguments \code{Asym}, \code{b2}, and \code{b3} are 38 local({ Asym <- 4.5; b2 <- 2.3; b3 <- 0.7 39 SSgompertz(log(DNase.1$conc), Asym, b2, b3) # response _and_ gradient 41 print(getInitial(density ~ SSgompertz(log(conc), Asym, b2, b3), 44 fm1 <- nls(density ~ SSgompertz(log(conc), Asym, b2, b3), 51 As <- coef(fm1)[["Asym"]]; abline(v = 0, h = 0, lty = 3)
|
H A D | SSasympOrig.Rd | 11 SSasympOrig(input, Asym, lrc) 15 \item{Asym}{a numeric parameter representing the horizontal asymptote.} 23 parameters \code{Asym} and \code{lrc} for a given set of data. 27 the expression \code{Asym*(1 - exp(-exp(lrc)*input))}. If all of 28 the arguments \code{Asym} and \code{lrc} are 38 local({ Asym <- 100; lrc <- -3.2 39 SSasympOrig(Lob.329$age, Asym, lrc) # response and gradient 41 getInitial(height ~ SSasympOrig(age, Asym, lrc), data = Lob.329) 43 fm1 <- nls(height ~ SSasympOrig(age, Asym, lrc), data = Lob.329) 51 stopifnot( all.equal(yy, SSasympOrig(xx, Asym = 5, lrc = log(log(2)))) ) [all …]
|
H A D | SSweibull.Rd | 9 SSweibull(x, Asym, Drop, lrc, pwr) 14 \item{Asym}{a numeric parameter representing the horizontal asymptote on 17 \code{Asym} to the \code{y} intercept.} 26 will evaluate initial estimates of the parameters \code{Asym}, \code{Drop}, 31 the expression \code{Asym-Drop*exp(-exp(lrc)*x^pwr)}. If all of 32 the arguments \code{Asym}, \code{Drop}, \code{lrc}, and \code{pwr} are 50 local({ Asym <- 160; Drop <- 115; lrc <- -5.5; pwr <- 2.5 51 SSweibull(Chick.6$Time, Asym, Drop, lrc, pwr) # response _and_ gradient 54 getInitial(weight ~ SSweibull(Time, Asym, Drop, lrc, pwr), data = Chick.6) 57 fm1 <- nls(weight ~ SSweibull(Time, Asym, Drop, lrc, pwr), data = Chick.6) [all …]
|
H A D | SSasympOff.Rd | 10 SSasympOff(input, Asym, lrc, c0) 15 \item{Asym}{a numeric parameter representing the horizontal asymptote on 28 \code{Asym}, \code{lrc}, and \code{c0}. 32 the expression \code{Asym*(1 - exp(-exp(lrc)*(input - c0)))}. If all of 33 the arguments \code{Asym}, \code{lrc}, and \code{c0} are 45 local({ Asym <- 32; lrc <- -4; c0 <- 43 46 SSasympOff(CO2.Qn1$conc, Asym, lrc, c0) # response and gradient 48 getInitial(uptake ~ SSasympOff(conc, Asym, lrc, c0), data = CO2.Qn1) 50 fm1 <- nls(uptake ~ SSasympOff(conc, Asym, lrc, c0), data = CO2.Qn1) 57 stopifnot( all.equal(yy, SSasympOff(xx, Asym = 5, lrc = log(0.4), c0 = 3/4)) ) [all …]
|
/dports/math/R/R-4.1.2/src/library/stats/R/ |
H A D | zzModels.R | 23 selfStart(function(input, Asym, R0, lrc) argument 25 .expr1 <- R0 - Asym 76 pars <- c(lrc = lrc, Asym = Asym, R0 = bma + Asym) globalVar 91 function(input, Asym, lrc, c0) argument 97 .value <- Asym * .expr6 131 function(input, Asym, lrc) argument 136 .value <- Asym * .expr5 331 function(input, Asym, xmid, scal) argument 336 .value <- Asym/.expr4 418 selfStart(function(x, Asym, b2, b3) argument [all …]
|
/dports/math/libRmath/R-4.1.1/src/library/stats/R/ |
H A D | zzModels.R | 23 selfStart(function(input, Asym, R0, lrc) argument 25 .expr1 <- R0 - Asym 76 pars <- c(lrc = lrc, Asym = Asym, R0 = bma + Asym) globalVar 91 function(input, Asym, lrc, c0) argument 97 .value <- Asym * .expr6 131 function(input, Asym, lrc) argument 136 .value <- Asym * .expr5 331 function(input, Asym, xmid, scal) argument 336 .value <- Asym/.expr4 418 selfStart(function(x, Asym, b2, b3) argument [all …]
|
/dports/math/R/R-4.1.2/src/library/stats/tests/ |
H A D | nls.R | 34 function(x, Asym, xmid, scal){} ) argument 38 Asym <- max(abs(xy[,"y"])) functionVar 39 if (Asym != max(xy[,"y"])) Asym <- -Asym # negative asymptote 40 xmid <- NLSstClosestX(xy, 0.5 * Asym) 41 scal <- NLSstClosestX(xy, 0.75 * Asym) - xmid 42 setNames(c(Asym, xmid, scal), 99 fm1 <- nls(density ~ SSlogis(log(conc), Asym, xmid, scal), 106 start = list(Asym = 3, xmid = 0, scal = 1)) nameattr 111 fm2a <- nls(density ~ Asym/(1 + exp((xmid - log(conc)))), 113 start = list(Asym = 3, xmid = 0)) nameattr [all …]
|
H A D | nls.Rout.save | 50 > logist <- deriv( ~Asym/(1+exp(-(x-xmid)/scal)), c("Asym", "xmid", "scal"), 51 + function(x, Asym, xmid, scal){} ) 55 + Asym <- max(abs(xy[,"y"])) 56 + if (Asym != max(xy[,"y"])) Asym <- -Asym # negative asymptote 57 + xmid <- NLSstClosestX(xy, 0.5 * Asym) 59 + setNames(c(Asym, xmid, scal), 60 + mCall[c("Asym", "xmid", "scal")]) 64 function (x, Asym, xmid, scal) 211 Asym 2.3350 0.0966 24.2 3.5e-12 *** 307 > rownames(cf)[2] <- "Asym" [all …]
|
/dports/math/libRmath/R-4.1.1/src/library/stats/tests/ |
H A D | nls.R | 34 function(x, Asym, xmid, scal){} ) argument 38 Asym <- max(abs(xy[,"y"])) functionVar 39 if (Asym != max(xy[,"y"])) Asym <- -Asym # negative asymptote 40 xmid <- NLSstClosestX(xy, 0.5 * Asym) 41 scal <- NLSstClosestX(xy, 0.75 * Asym) - xmid 42 setNames(c(Asym, xmid, scal), 99 fm1 <- nls(density ~ SSlogis(log(conc), Asym, xmid, scal), 106 start = list(Asym = 3, xmid = 0, scal = 1)) nameattr 111 fm2a <- nls(density ~ Asym/(1 + exp((xmid - log(conc)))), 113 start = list(Asym = 3, xmid = 0)) nameattr [all …]
|
H A D | nls.Rout.save | 50 > logist <- deriv( ~Asym/(1+exp(-(x-xmid)/scal)), c("Asym", "xmid", "scal"), 51 + function(x, Asym, xmid, scal){} ) 55 + Asym <- max(abs(xy[,"y"])) 56 + if (Asym != max(xy[,"y"])) Asym <- -Asym # negative asymptote 57 + xmid <- NLSstClosestX(xy, 0.5 * Asym) 59 + setNames(c(Asym, xmid, scal), 60 + mCall[c("Asym", "xmid", "scal")]) 64 function (x, Asym, xmid, scal) 211 Asym 2.3350 0.0966 24.2 3.5e-12 *** 307 > rownames(cf)[2] <- "Asym" [all …]
|
/dports/math/R-cran-lme4/lme4/tests/ |
H A D | nlmer.Rout.save | 26 > (nm1 <- nlmer(circumference ~ SSlogis(age, Asym, xmid, scal) ~ (Asym|Tree), 27 + Orange, start = c(Asym = 200, xmid = 725, scal = 350))) 29 Formula: circumference ~ SSlogis(age, Asym, xmid, scal) ~ (Asym | Tree) 35 Tree Asym 31.646 39 Asym xmid scal 42 Asym xmid scal
|
H A D | is.R | 22 nm1 <- nlmer(circumference ~ SSlogis(age, Asym, xmid, scal) ~ Asym|Tree, 23 Orange, start = c(Asym = 200, xmid = 725, scal = 350)) nameattr
|
H A D | nlmer.R | 6 (nm1 <- nlmer(circumference ~ SSlogis(age, Asym, xmid, scal) ~ (Asym|Tree), 7 Orange, start = c(Asym = 200, xmid = 725, scal = 350))) nameattr
|
/dports/math/R-cran-lme4/lme4/man/ |
H A D | nlmer.Rd | 111 startvec <- c(Asym = 200, xmid = 725, scal = 350) 112 (nm1 <- nlmer(circumference ~ SSlogis(age, Asym, xmid, scal) ~ Asym|Tree, 119 nform <- ~Asym/(1+exp((xmid-input)/scal)) 121 nfun <- deriv(nform,namevec=c("Asym","xmid","scal"), 122 function.arg=c("input","Asym","xmid","scal")) 123 nm1b <- update(nm1,circumference ~ nfun(age, Asym, xmid, scal) ~ Asym | Tree) 129 nfun2 <- function(input, Asym, xmid, scal) { 130 value <- Asym/(1+exp((xmid-input)/scal)) 131 grad <- cbind(Asym=1/(1+exp((xmid-input)/scal)), 134 scal=-Asym/(1+exp((xmid-input)/scal))^2* [all …]
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/arnoldi/sci_gateway/c/ |
H A D | sci_eigs.c | 51 int Asym = 1; in sci_eigs() local 160 Asym = 0; in sci_eigs() 164 if (Asym == 0) in sci_eigs() 309 if (!Acomplex && Asym) in sci_eigs() 707 if (Acomplex || Bcomplex || !Asym) in sci_eigs() 732 if (Asym && !Acomplex && !Bcomplex) in sci_eigs() 738 if (!Asym && !Acomplex && !Bcomplex) in sci_eigs() 751 if (Asym && !Acomplex && !Bcomplex) in sci_eigs() 770 if (Asym) in sci_eigs() 789 if (Asym) in sci_eigs() [all …]
|
/dports/math/R-cran-lme4/lme4/tests/testthat/ |
H A D | test-nlmer.R | 7 startvec <- c(Asym = 200, xmid = 725, scal = 350) nameattr 8 nm1 <- nlmer(circumference ~ SSlogis(age, Asym, xmid, scal) ~ Asym|Tree,
|
/dports/net/tcpdump/tcpdump-4.99.1/tests/ |
H A D | lldp_asan.out | 7 …, 100BASE-T2 hdx, 100BASE-T2 fdx, Pause for fdx links, Asym PAUSE for fdx, Sym PAUSE for fdx, Asym… 12 …PMD autoneg capability [Pause for fdx links, Asym PAUSE for fdx, Sym PAUSE for fdx, Asym and Sym P…
|