Edit in Kappa_Newton_Rapson.R