Create taperMadj.R