still working on del_sropt.

something wrong with the calculation. I do not understand R properly...