Added Dave's R analysis script.