diff --git a/xrdtf.R b/xrdtf.R
index 85ad2a6..b2e7e7a 100755
--- a/xrdtf.R
+++ b/xrdtf.R
@@ -16,6 +16,46 @@
 #    - strip.ka2
 #    - pearson.beta
 
+## All XRD reading functions need to be re-written to identify the data instead of identifying metadata
+## Take inspiration from the functions in CHI.R
+
+
+
+
+##################################################
+################ EliminateKa2 ####################
+##################################################
+EliminateKa2 <- function(xrdata) {
+   ##### STILL UNDER CONSTRUCTION ####
+   ##### STILL UNDER CONSTRUCTION ####
+
+   # The following lever arm weights are from Dong1999a
+   weights <- list()
+   # Three-bar weights
+   weights[[1]] <- c(0.005134296, 0.491686047, 0.003179657)
+   # Five-bar weights   
+   weights[[2]] <- c(0.002614410, 0.011928014, 0.480406967, 0.002121807, 0.002928802)
+   # Seven-bar weights
+   weights[[3]] <- c(0.001580069, 0.003463773, 0.015533472, 0.422601977, 0.053632977,
+                     0.001572467, 0.001615265)
+   # Nine-bar weights
+   weights[[4]] <- c(0.001138001,   0.00195272, 0.004324464, 0.019246541, 0.394175823,
+                     0.079159001, -0.003591547, 0.002505604, 0.001089392)
+   # 15-bar weights
+   weights[[5]] <- c(0.000614225, 0.000810836, 0.001134775, 0.001723265, 0.002968405,
+                     0.006433676, 0.02575384,  0.345872599, 0.100578092, 0.014493969,
+                    -0.004176171, 0.000678688, 0.001610333, 0.000918077, 0.000585391)
+   # 25-bar weights
+   weights[[6]] <- c(0.000349669,  0.000408044, 0.000484578,  0.000587457, 0.000730087,
+                     0.000935685,  0.001247401, 0.001753233,  0.002657209, 0.004531817,
+                     0.009591103,  0.034998436, 0.2876498,    0.074964321, 0.065000871,
+                     0.016762729, -0.00306221, -0.002717412, -0.000902322, 0.000915701,
+                     0.001036484,  0.000808199, 0.000539899,  0.000398896, 0.000330325)
+   
+   ##### STILL UNDER CONSTRUCTION ####
+}
+
+