R/color.R

In BayesianFROC: FROC Analysis by Bayesian Approaches

function(){
pink <- crayon::make_style("pink")
x <- crayon::make_style(grDevices::rgb(0.33, 0.19, 0.45), bg = TRUE)
# message(x(pink("I am not sure but is it OK to write message here ?.\n")))

pink <- crayon::make_style("pink")
xxxx <- crayon::make_style(grDevices::rgb(0.13, 0.19, 0.45), bg = TRUE)
 R <- x(pink("R"))
 # cat(R)
R<- crayon::bold$italic(R)
# cat(R)

 pink <- crayon::make_style("pink")
 xx <- crayon::make_style(grDevices::rgb(0.03, 0.59, 0.55), bg = TRUE)
 # message(x(pink("I am not sure but is it OK to write message here ?.\n")))


 pink <- crayon::make_style("pink")
 xxx <- crayon::make_style(grDevices::rgb(0.93, 0.19, 0.65), bg = TRUE)
 # cat(y(pink("tttttttttttttttttttttttt.\n")))

 pink <- crayon::make_style("pink")
 y <- crayon::make_style(grDevices::rgb(0.83, 0.19, 0.65), bg = TRUE)
 # cat(y(pink("tttttttttttttttttttttttt.\n")))


 pink <- crayon::make_style("pink")
 yy <- crayon::make_style(grDevices::rgb(0.73, 0.49, 0.15), bg = TRUE)
 # cat(yy(pink("I am pink if your terminal wants it, too.\n")))

 pink <- crayon::make_style("pink")
 yyy <- crayon::make_style(grDevices::rgb(0.63, 0.19, 0.65), bg = TRUE)
 # cat(yyy(pink("I am pink if your terminal wants it, too.\n")))


 pink <- crayon::make_style("pink")
 z <- crayon::make_style(grDevices::rgb(0.53, 0.49, 0.15), bg = TRUE)
 # cat(z(pink("I am pink if your terminal wants it, too.\n")))


 pink <- crayon::make_style("pink")
 zz <- crayon::make_style(grDevices::rgb(0.43, 0.49, 0.15), bg = TRUE)
 # cat(zz(pink("I am pink if your terminal wants it, too.\n")))

 pink <- crayon::make_style("pink")
 zzz <- crayon::make_style(grDevices::rgb(0.33, 0.19, 0.65), bg = TRUE)
 # cat(zzz(pink("I am pink if your terminal wants it, too.\n")))


 pink <- crayon::make_style("pink")
 a <- crayon::make_style(grDevices::rgb(0.23, 0.49, 0.15), bg = TRUE)
 # cat(a(pink("I am pink if your terminal wants it, too.\n")))


 pink <- crayon::make_style("pink")
 aa <- crayon::make_style(grDevices::rgb(0.13, 0.49, 0.15), bg = TRUE)
 # cat(aa(pink("I am pink if your terminal wants it, too.\n")))






















}#function