1 files changed, 10 insertions, 0 deletions
diff --git a/R Scripts/temporal.R b/R Scripts/temporal.R
new file mode 100755
index 0000000..13194a4
--- /dev/null
+++ b/R Scripts/temporal.R
@@ -0,0 +1,10 @@
+
+temporal = function(tu,tv,alpha){
+  dt = tv - tu - 1
+  if (sum(dt<0)==0) {
+    return (alpha*exp(-alpha*dt))
+#     return ((0.01/alpha)*(1+dt/alpha)^(-1.01))
+  } else {
+    return (NA)
+  }
+}
+\ No newline at end of file