examples-AS: Abreu & Sannikov's arbitrary game example
In squipbar/abSan: Computes the Abreu-Sannikov repeated game algorithm

Example model definition function. Records an arbitrary game with three actions for each player 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, when the default model options are passed. These are used in accuracy tests.

1	examples.AS(opts)

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

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