Added Sequence Analysis RScript