diff options
Diffstat (limited to 'R Scripts/temporal.R')
| -rwxr-xr-x | R Scripts/temporal.R | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/R Scripts/temporal.R b/R Scripts/temporal.R index 13194a4..3502b45 100755 --- a/R Scripts/temporal.R +++ b/R Scripts/temporal.R @@ -1,9 +1,8 @@ -temporal = function(tu,tv,alpha){ - dt = tv - tu - 1 +temporal = function(tu,tv,beta){ + dt = tv - tu if (sum(dt<0)==0) { - return (alpha*exp(-alpha*dt)) -# return ((0.01/alpha)*(1+dt/alpha)^(-1.01)) + return (beta*exp(-beta*dt)) } else { return (NA) } |
