add compare.R