exp3_code.R