Added Shoe R code