function [I] = HoopStats_InfoContent(P,K)
% "HoopStats_K2H"
% R01.03
% By Sam Berens (sam.berens@york.ac.uk).
%
% [I] = HoopStats_InfoContent(P,K)
%
% Computes the information content (I) of a von Mises distribution with a
% prior weight of P and a concentration parameter of K.

if (K == 0) || (P == 0)
    I = 0;
else
    MaxH = log(2*pi);
    I = MaxH - ((P.*HoopStats_K2H(K))+(MaxH.*(1-P)));
end

return