Just adding some basic R scripts that I am using for idea development in the bacgkround