added 2 R markdown scripts