Update Transition.R

rwr and transition function added with and computation with library(Matrix)