examples-cournot: Cournot duopoly example
In squipbar/abSan: Computes the Abreu-Sannikov repeated game algorithm

Description Usage Arguments See Also Examples

Example model definition function. Records a Cournot duopoly 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, when the default model options are passed. These are used in accuracy tests.

1	examples.cournot(opts)

The list opts should be passed with the following entries:

iActs

is the integer number of actions available to each player. Default is 15.

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

model.defn <- examples.cournot()
model.defn$delta 
  # Print the discount factor
model <- model.initiate( examples.cournot )
  # Pre-process the model
sol <- abSan.eqm( model=model )
  # Solve
model <- model.initiate( examples.cournot, opts=list( 'iActs' = 80 ) )
sol <- abSan.eqm( model=model )
  # Alternative use