Added R script

Invsimp.R