numSummary(eff[,c("AGE", "CSITE", "ITT", "NRACE", "NSEX", "PAIN", "PAIN0", 
  "PNCHG", "PNRSP30", "PNRSP50", "RXGP", "SLEEP", "SLEEP0", "SLPCHG")], 
  groups=eff$STATUS, statistics=c("mean", "sd", "quantiles"), quantiles=c(0,
  .25,.5,.75,1))
library(relimp, pos=4)
showData(eff, placement='-20+200', font=getRcmdr('logFont'), maxwidth=80, 
  maxheight=30)
plotMeans(eff2$PNCHG, eff2$TRT, error.bars="conf.int", level=0.95)