Update code_TP7.R