Update R Script chunkPOSVector.r

Update R script chunkPOSVector.r for simplicity.