Create discrimination.R

R script for processing PITF's discrimination data set.