search for: tshift

Displaying 1 result from an estimated 1 matches for "tshift".

Did you mean: shift
2007 Sep 21
1
problem with 'integrate'
...re any way I can work around this? Perhaps there is something similar to "suppressWarnings()" that I might be able to use? questionableFunction <- function(B = 10) { fx4 <- function(B, y, z){ 1 + exp(B*y - B*z); } fx1 <- function(x, r0 = 0.12, k=-0.10, a=0.5, tshift=8.36){ (r0*exp(r0*t0 + (k/B)*log(fx4(B, t0, tshift)) - r0*x - (k/B)*log(fx4 (B, x, tshift)))) } integrate(fx1, 8.36, 10, stop.on.error = FALSE); } Thanks in advance for your help... Dan Rabosky Department of Ecology and Evolutionary Biology & Fuller Evolutionary Biology Program Cornel...