Added file Kappa_Newton_Rapson.R