retinotopic remapping task R script