Updated R compare script.