Update colorpI.R