Completed comments so that this can eventually be made into a serious tool part of a serious toolkit. Added sample R commands and generated plot