diff --git a/R/calculatePower.R b/R/calculatePower.R
index c51a1ca..2fc06fd 100644
--- a/R/calculatePower.R
+++ b/R/calculatePower.R
@@ -15,7 +15,8 @@ rm(list=ls())
 set.seed(424242) 
 
 # (1) - Get the pilot data and clean it
-source('~/Research/tor_wikipedia_edits/handcoded_edits/inter_coder_reliability_ns0.R')
+#source('~/Research/tor_wikipedia_edits/handcoded_edits/inter_coder_reliability_ns0.R')
+source ('/data/users/mgaughan/kkex_data_110823_3')
 d$nd <- to_logical(d$not.damaging, custom_true=c("Y")) 
 levels(d$source) <- c("IP-based Editors", "New Editors", "Registered Editors", "Tor-based Editors")