exp2_code.R