From 1739e9f5706bb8a73de5dbf0b467de49ea040898 Mon Sep 17 00:00:00 2001
From: Ben Green <bgreen@g.harvard.edu>
Date: Mon, 8 Jun 2015 15:21:51 -0400
Subject: added my R scripts

---
 R Scripts/temporal.R | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100755 R Scripts/temporal.R

(limited to 'R Scripts/temporal.R')

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
-- 
cgit v1.2.3-70-g09d2