R/rt.outcome.colors.R

Defines functions rt.outcome.colors

rt.outcome.colors = function(outcome)
  c(R='#00ff00', T='#ff0000', rt='#8E9233', rT='#F007E6', 
    Rt='#009215', RT='#7367D4', EU='#000000', RLE='#6C9291') [outcome]

probLineNames <- rt.outcome.strings <- function(outcome)
  names(rt.outcome.colors(outcome))
professorbeautiful/DUE documentation built on Aug. 17, 2018, 7:18 p.m.