From 6da27e0de77e256ecf196dd5b3c67ad04a171657 Mon Sep 17 00:00:00 2001
From: ksosina <mail@ksosina.com>
Date: Tue, 29 Nov 2016 18:02:26 -0500
Subject: [PATCH] #KS; Added the calfdr script(takes in df from @LH output) to
 the server.R script and used it to create a dataset set called fdrdata that
 @PK will use as plot

---
 server.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/server.R b/server.R
index d513a7b..02955ed 100644
--- a/server.R
+++ b/server.R
@@ -14,7 +14,8 @@ shinyServer(function(input, output) {
   #LH: this function should take a vector of p-values and 
   # spit out a FDR
   # "calcFDR"
-  
+  source("calfdr.R")
+  fdrdata <- calFDR(df)
   
   
   #LH: output a plot here