Description Usage Arguments Value Examples
plot cellular cooperativity and clonogenic survival for colony formation assay data
1 |
SF |
list build of objects returned by |
showUncertainty |
logical, switches on/off uncertainty bands for sf-values. |
none
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | seeded <- rep(10^(seq(1, 5, 0.5)), each = 3)
df.1 <- data.frame(
"seeded" = seeded,
"counted1" = 0.4 * seeded^1.1 * rnorm(n = length(seeded), 1, 0.05),
"counted2" = 0.2 * seeded^1.125 * rnorm(n = length(seeded), 1, 0.05),
"counted3" = 0.05 * seeded^1.25 * rnorm(n = length(seeded), 1, 0.05)
)
df.2 <- data.frame(
"seeded" = seeded,
"counted1" = 0.5 * seeded^1.01 * rnorm(n = length(seeded), 1, 0.05),
"counted2" = 0.4 * seeded^1.0125 * rnorm(n = length(seeded), 1, 0.05),
"counted3" = 0.2 * seeded^1.025 * rnorm(n = length(seeded), 1, 0.05)
)
SF <- vector("list", 2)
SF[[1]] <- analyze_survival(
RD = df.1, name = "cell line a",
xtreat = c(0, 1, 4)
)
SF[[2]] <- analyze_survival(
RD = df.2, name = "cell line b",
xtreat = c(0, 1, 4)
)
plot_sf(SF)
data("CFAdata")
SF <- vector("list", 4)
ll <- levels(CFAdata$cell.line)[c(1, 3, 5, 7)]
for (i in seq_along(ll)) {
cdat <- subset.data.frame(
x = CFAdata,
subset = CFAdata$cell.line == ll[i]
)
SF[[i]] <- analyze_survival(
RD = cdat[, -1],
name = ll[i],
xtreat = c(0, 1, 2, 4, 6, 8)
)
}
plot_sf(SF)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.