function r = hamming84_r ( )

%*****************************************************************************80
%
%% hamming84_r() returns the Hamming (8,4) decoding matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    03 July 2018
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    real R(4,8), the Hamming (8,4) H matrix.
%
  r = [ ...
    1, 0, 0, 0, 0, 0, 0, 0; ...
    0, 1, 0, 0, 0, 0, 0, 0; ...
    0, 0, 1, 0, 0, 0, 0, 0; ...
    0, 0, 0, 1, 0, 0, 0, 0 ];

  return
end


