Dear Rexperts,

Given,

aar <-function(command) {

switch(command,
  {scrn = cat("scrn  :Screening","\n")}
  {dx   = cat("dx    :Diagnosis","\n")}
  {df   = cat("df    :Don't Forget","\n")}
)
}

I want to be able to do:

aar("dx") # function does cat("dx    :Diagnosis","\n")

aar(c("dx","df"))  # function does cat("dx    :Diagnosis","\n")
                        # function does df   = cat("df    :Don't
Forget","\n")

BUT IT IS NOT WORKING FOR ME.

Please help:-)

-- 
Oscar
Oscar A. Linares, MD
Translational Medicine Unit
LaPlaisance Bay, Bolles Harbor
Monroe, Michigan

	[[alternative HTML version deleted]]

