add couple simple r scripts