Displaying 1 result from an estimated 1 matches for "crv5".
Did you mean:
crv
2011 Oct 13
3
nls: singular convergeance
...9,677.9492,680.5667,684.3941,688.2404
,690.7223,693.3406,697.9022,700.6606)
trans <- 13.38
trans2 <- 28.53
estCd <- 1975
estConst1 <- 0.00115689
estExch <- 0.00171680
Cb <- 330.1
Cmin <- 357
Ci <- 101000
R <- 0.001104768
A <- 16
V <- 8
rismod <- nls(seg_an ~ crv5(t, R, exch, trans, trans2, Cd, const1,
Cmin, Cb, A, V, Ci, Cmin.new), start = list(Cd = estCd, const1 =
estConst1,
exch = estExch), lower = c(100, 1e-05, 0),
upper = c(50000, 1, 0.0359), algorithm = "port", trace=TRUE)
plot(t, seg_an)
lines(t, crv5((t, R, 0.00182669, tra...