Create ploi1.R