R analysis scripts