Description Usage Arguments Examples
View source: R/DRAP_code_1.5.11.r
Visulize the drug response for each animal or each Tumor in the form of waterfall.
1 2 | plotWaterfall(data, max.threshold = 100, order.by = c("Best.Avg.Response",
"Best.Response", "RC.Response"), ...)
|
data |
drug response level, the output of DRLevel. |
max.threshold, |
the max threshold of volume change meseaure to visulize. |
order.by |
the meseasure ordered by. |
... |
other parameters passed to ggplot |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ## NPDXE.criteria
npdxe.criteria <- data.frame(BestResponse.lower = c(-1000,-0.95,-0.5,0.35),
BestResponse.upper = c(-0.95,-0.5,0.35,1000),
BestAvgResponse.lower = c(-1000,-0.4,-0.2,0.3),
BestAvgResponse.upper = c(-0.4,-0.2,0.3,1000),
Level = c( 'CR','PR', 'SD','PD'))
npdxe.criteria
data(TAone.volume.data)
TAone.drl <- DRLevel(data = TAone.volume.data,
method = 'NPDXE.Response',
criteria = npdxe.criteria,
neg.control = 'Control')
# Choose the data of GC responsed to BYL719 + LJM716
bl.gc.drl <- TAone.drl[TAone.drl$Arms == "BYL719 + LJM716" & TAone.drl$Type == 'GC',]
plotWaterfall(data = bl.gc.drl, max.threshold = 100,order.by = 'Best.Response')
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.