This is a test of my R flex board knowledge using one of my past analysis.