Behavioral data + R-script