Update compare.R