R codes for data analysis of WL and LPP