Update BTYD_example.r