# NOT RUN {
layout(1:2)
col1 <- wrMisc::transpGraySca(0.8,0.3,7,0.9)
pie(rep(1,length(col1)),col=col1,main="from transpGraySca")
col2 <- gray.colors(7,0.9,0.3,alph=0.9)
pie(rep(1,length(col2)),col=col2,main="from gray.colors")
# }
Run the code above in your browser using DataLab