function Q = reflection_random_eigen_right ( n, key )

%*****************************************************************************80
%
%% reflection_random_eigen_right(): right eigenvectors of the REFLECTION_RANDOM matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    12 May 2020
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer N, the order of A.
%
%    integer KEY, a positive integer that selects the data.
%
%  Output:
%
%    real Q(N,N), the eigenvector matrix.
%
  rng ( key );
%
%  Get a random vector v.
%
  v = randn ( n, 1 );
%
%  Get the QR factorization.
%
  [ Q, R ] = qr ( v );

  return
end
