Update fedorov.R

adjusted the norm function cause it was quicker this way