Added compare.R