updated stake_movment.r code. In process of cleaning up for larger dataset