Aliases: pbgyr
Keywords:
### ** Examples my_red <- "2.5R 4/8" pbgyr(my_red)
[1] "10RP 4/8"
plot_mnsl(c(my_red, pbgyr(my_red, 2), pbgyr(my_red, 4)))