Create plo1.r