function v = coin_biased ( n, heads, seed )

%*****************************************************************************80
%
%% COIN_BIASED generates N biased random coin flips.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    21 February 2016
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, integer N, the number of tosses.
%
%    Input, real HEADS, the probability of heads with this coin.
%    0.0 <= HEADS <= 1.0.
%
%    Input, integer SEED, a seed for the random number generator.
%
%    Output, integer V(N), a vector of -1's for tails, and 1's for heads.
%
% rng ( seed );

  v = ( rand ( n, 1 ) < heads );

  v = 2.0 * v - 1.0;

  return
end
