add R script used to calculate compression effect.