Added R analysis script

trying to explain month's worth of collected data