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...