loss_lrp - logistic loss function Copyright(c) 2009 Ryota Tomioka This software is distributed under the MIT license. See license.txt
0001 % loss_lrp - logistic loss function 0002 % 0003 % Copyright(c) 2009 Ryota Tomioka 0004 % This software is distributed under the MIT license. See license.txt 0005 function [floss, gloss]=loss_lrp(zz, yy) 0006 0007 zy = zz.*yy; 0008 z2 = 0.5*[zy, -zy]; 0009 outmax = max(z2,[],2); 0010 sumexp = sum(exp(z2-outmax(:,[1,1])),2); 0011 logpout = z2-(outmax+log(sumexp))*ones(1,2); 0012 pout = exp(logpout); 0013 0014 floss = -sum(logpout(:,1)); 0015 gloss = -yy.*pout(:,2);