function r = hamming74_r ( )

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

  return
end


