Update exploringPM_data.r Script