Create contrastsInR.R