examples-PD: Prisoner's dilemma example
In squipbar/abSan: Computes the Abreu-Sannikov repeated game algorithm

Example model definition function. Records a Prisonner's dilemma game and returns the a list of actions, payoffs, and a discount factor to define the game. These can then be used by model.initiate to generate a model description used in the body of the AS algorithm. This example also contains answers in the 'ans' list entry generated by Richard Kratzwer's rgsolve algorithm. These are used in accuracy tests.

1	examples.PD(opts)

model.initiate examples.sexes, examples.cournot, examples.AS, examples.FL.union

model.defn <- examples.PD()
model.defn$delta 
  # Print the discount factor
model <- model.initiate( examples.PD )
  # Pre-process the model
sol <- abSan.eqm( model=model )
  # Solve