# NOT RUN {
# better graphics defaults
op <- par(mar = c(0, 0, 0, 0), fg = 'white', bg = 'black')
# full set of hues, as generated by huePosition(returnHues = TRUE)
huePositionCircle()
# subset
huePositionCircle(hues = c('5R', '5Y', '5G', '5B', '5P'))
# reset graphics state
par(op)
# }
Run the code above in your browser using DataLab