Displaying 2 results from an estimated 2 matches for "expsum".
Did you mean:
expsam
2007 Apr 16
1
nls with algorithm = "port", starting values
...lt;- length(par <- as.double(start))
Example:
## exponentially decaying data
getExpmat <- function(theta, t)
{
conc <- matrix(nrow = length(t), ncol = length(theta))
for(i in 1:length(theta)) {
conc[, i] <- exp(- theta[i] * t)
}
conc
}
expsum <- as.vector(getExpmat(c(.05,.005), 1:100) %*% c(1,1))
expsumNoisy <- expsum + max(expsum) *.001 * rnorm(100)
expsum.df <-data.frame(expsumNoisy)
## estimate decay rates, amplitudes with default Gauss-Newton
summary (nls(expsumNoisy ~ getExpmat(k, 1:100) %*% sp, expsum.df, start =
list(k...
2004 Nov 05
0
R check passes code and docs that don't match
.... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking Rd files ... OK
* checking for missing documentation entries ... WARNING
Undocumented code objects:
MatrixExp absorbing.mspath coef.mspath crudeinits.mspath deltamethod
ematrix.mspath expit expitsum expsum hazard.mspath lik.mspath logit
mspath.check.consistency mspath.check.ematrix mspath.check.model
mspath.check.qmatrix mspath.check.state mspath.check.times
mspath.form.output mspath.process.covs mspath.results
observed.mspath odds.mspath plot.mspath pmatrix.mspath
pmatrix.piecewise.mspath...