added comparable_ratio.R