function dat = hinge_loss(algo,dat)
  
  [x y]=get_xy(dat);
  
  lss= mean( max(1-y.*x,0));
  
   
  dat=data([get_name(dat) ' -> hinge_loss='  num2str(lss,4) ],[],lss);
