/* LabMPL.do evaluates the 2003 Danish lab experiments*/

log using LabMPL.log, replace
set mem 100m
set more off
set scheme vg_past
set scheme s2mono
about

* Check subdirectories are there
capture {
    mkdir Graphs
    mkdir ExtraGraphs
    mkdir Tables
}

* get the number of RA switches
do LabMPLswitch

* evaluate the RA responses using CRRA
do LabMPLcrra

* evaluate the IDR response
do LabMPLidr

shell erase data.dta
exit