Update redheffer.R