Title: | Analysis of Data from Limiting Dilution Assay (LDA) with or without Cellular Cooperation |
---|---|
Description: | Cellular cooperation compromises the established method of calculating clonogenic activity from limiting dilution assay (LDA) data. This tool provides functions that enable robust analysis in presence or absence of cellular cooperation. The implemented method incorporates the same cooperativity module to model the non-linearity associated with cellular cooperation as known from the colony formation assay (Brix et al. (2021) <doi:10.1038/s41596-021-00615-0>: "Analysis of clonogenic growth in vitro." Nature protocols). |
Authors: | Daniel Samaga [cre, aut], Nikko Brix [aut], Benedek Danko [aut], Kirsten Lauber [aut], Horst Zitzelsberger [aut] |
Maintainer: | Daniel Samaga <[email protected]> |
License: | GPL-3 |
Version: | 0.1.2 |
Built: | 2024-10-16 06:20:42 UTC |
Source: | CRAN |
calculation of clonogenic activities from data collected in a limiting dilution assay (LDA) experiment (i.e. cells, wells, positive wells, group).
LDA_activity(x, name = "LDA cells")
LDA_activity(x, name = "LDA cells")
x |
numeric data.frame or matrix with three columns (cells, wells, positive wells, group (optional)) |
name |
optional: experiment name (e.g. name of cell line) |
list object with LDA-activities as returned by LDA_activity_single
x <- data.frame("cells" = c(10,50,100,250,10,50,100,250), "wells" = rep(25,8), "positive" = c(2,5,10,20,1,2,6,11), "group" = c(rep("A",4),rep("B",4))) act <- LDA_activity(x)
x <- data.frame("cells" = c(10,50,100,250,10,50,100,250), "wells" = rep(25,8), "positive" = c(2,5,10,20,1,2,6,11), "group" = c(rep("A",4),rep("B",4))) act <- LDA_activity(x)
calculation of clonogenic activity from data collected by a limiting dilution assay (LDA) experiment (i.e. numbers of: cells seeded, wells, positive wells).
LDA_activity_single(x, name = "cell line a", treat = "no")
LDA_activity_single(x, name = "cell line a", treat = "no")
x |
numeric data.frame or matrix with three columns (cells, wells, positive wells) |
name |
optional: experiment name (e.g. name of cell line) |
treat |
optional: treatment (e.g. irradiation dose in Gy) |
list object with estimated activity, 95 84 matrix, fit-object and p-value for cooperativity-test
x <- data.frame("cells" = c(10,50,100,250), "wells" = rep(25,4), "positive" = c(2,5,10,20)) act <- LDA_activity_single(x) data(LDAdata) cell.line <- unique(LDAdata$name)[1] x <- subset.data.frame( LDAdata, subset = (name==cell.line) & (Group == 0)) LDA_activity_single(x[,4:6])
x <- data.frame("cells" = c(10,50,100,250), "wells" = rep(25,4), "positive" = c(2,5,10,20)) act <- LDA_activity_single(x) data(LDAdata) cell.line <- unique(LDAdata$name)[1] x <- subset.data.frame( LDAdata, subset = (name==cell.line) & (Group == 0)) LDA_activity_single(x[,4:6])
plot clonogenic activity and survival (at more than one treatment group) for data from limiting dilution assay (LDA) experiments.
LDA_plot(LDA_tab, uncertainty = "act", xlim = NULL, uncertainty.band = FALSE)
LDA_plot(LDA_tab, uncertainty = "act", xlim = NULL, uncertainty.band = FALSE)
LDA_tab |
LDA data.frame ("cells", "wells", "positive", "group", "replicate") |
uncertainty |
method for uncertainty calculation ("act", "ep") |
xlim |
setting xlim of clonogenic activity plot |
uncertainty.band |
plotting of uncertainty bands TRUE/FALSE |
none
data(LDAdata) Z1 <- subset.data.frame(LDAdata,subset = name == unique(LDAdata$name)[1]) LDA_plot(Z1[,c("S-value","# Tested","# Clonal growth","Group","replicate")])
data(LDAdata) Z1 <- subset.data.frame(LDAdata,subset = name == unique(LDAdata$name)[1]) LDA_plot(Z1[,c("S-value","# Tested","# Clonal growth","Group","replicate")])
generate clonogenic activity estimation plot (frequency of negative wells over the number of cells seeded) for data of limiting dilution assay (LDA) experiments. Input is an data object as returned by the preprocessing function LDA_prepare_plot().
LDA_plot_activity(LDA_obj, xlim = NULL, uncertainty.band = FALSE)
LDA_plot_activity(LDA_obj, xlim = NULL, uncertainty.band = FALSE)
LDA_obj |
list returned from LDA_prepare_plot |
xlim |
manually setting the xlim |
uncertainty.band |
plotting uncertainty bands TRUE/FALSE |
none
x <- data.frame("cells" = rep(c(10,50,100,250),times = 4), "wells" = rep(25,16), "positive" = c(2,5,10,20,1,2,6,11,3,4,8,22,1,1,7,12), "group" = rep(c(rep("A",4),rep("B",4)),times = 2), "replicate" = c(rep(1,8),rep(2,8))) out <- LDA_prepare_plot(x) LDA_plot_activity(out[[1]]) data(LDAdata) Z1 <- subset.data.frame(LDAdata,subset = name == unique(LDAdata$name)[1]) out <- LDA_prepare_plot(Z1[,c("S-value","# Tested","# Clonal growth", "Group","replicate")]) LDA_plot_activity(out[[1]])
x <- data.frame("cells" = rep(c(10,50,100,250),times = 4), "wells" = rep(25,16), "positive" = c(2,5,10,20,1,2,6,11,3,4,8,22,1,1,7,12), "group" = rep(c(rep("A",4),rep("B",4)),times = 2), "replicate" = c(rep(1,8),rep(2,8))) out <- LDA_prepare_plot(x) LDA_plot_activity(out[[1]]) data(LDAdata) Z1 <- subset.data.frame(LDAdata,subset = name == unique(LDAdata$name)[1]) out <- LDA_prepare_plot(Z1[,c("S-value","# Tested","# Clonal growth", "Group","replicate")]) LDA_plot_activity(out[[1]])
generate clonogenic survival plot (estimated clonogenic survival over treatment) for data from limiting dilution assay (LDA). Input is an data object as returned by the preprocessing function LDA_prepare_plot().
LDA_plot_SF(LDA_obj)
LDA_plot_SF(LDA_obj)
LDA_obj |
list returned from LDA_prepare_plot |
none
x <- data.frame("cells" = rep(c(10,50,100,250),times = 4), "wells" = rep(25,16), "positive" = c(2,5,10,20,1,2,6,11,3,4,8,22,1,1,7,12), "group" = rep(c(rep(0,4),rep(6,4)),times = 2), "replicate" = c(rep(1,8),rep(2,8))) out <- LDA_prepare_plot(x) LDA_plot_SF(out[[2]]) data(LDAdata) Z1 <- subset.data.frame(LDAdata,subset = name == unique(LDAdata$name)[1]) out <- LDA_prepare_plot(Z1[,c("S-value","# Tested","# Clonal growth", "Group","replicate")]) LDA_plot_SF(out[[2]])
x <- data.frame("cells" = rep(c(10,50,100,250),times = 4), "wells" = rep(25,16), "positive" = c(2,5,10,20,1,2,6,11,3,4,8,22,1,1,7,12), "group" = rep(c(rep(0,4),rep(6,4)),times = 2), "replicate" = c(rep(1,8),rep(2,8))) out <- LDA_prepare_plot(x) LDA_plot_SF(out[[2]]) data(LDAdata) Z1 <- subset.data.frame(LDAdata,subset = name == unique(LDAdata$name)[1]) out <- LDA_prepare_plot(Z1[,c("S-value","# Tested","# Clonal growth", "Group","replicate")]) LDA_plot_SF(out[[2]])
analyze limiting dilution assay (LDA) data and collect information for plotting.
LDA_prepare_plot(LDA_tab, uncertainty = "act")
LDA_prepare_plot(LDA_tab, uncertainty = "act")
LDA_tab |
LDA data.frame ("cells", "wells", "positive", "group", "replicate") |
uncertainty |
method for approximation of uncertainties of survival fractions (SF): activity based ("act") or by error propagation ("ep") |
none
x <- data.frame("cells" = rep(c(10,50,100,250),times = 4), "wells" = rep(25,16), "positive" = c(2,5,10,20,1,2,6,11,3,4,8,22,1,1,7,12), "group" = rep(c(rep("A",4),rep("B",4)),times = 2), "replicate" = c(rep(1,8),rep(2,8))) LDA_prepare_plot(x) # data(LDAdata) # Z1 <- subset.data.frame(LDAdata,subset = name == unique(LDAdata$name)[1]) # LDA_prepare_plot(Z1[,c("S-value","# Tested","# Clonal growth","Group", # "replicate")])
x <- data.frame("cells" = rep(c(10,50,100,250),times = 4), "wells" = rep(25,16), "positive" = c(2,5,10,20,1,2,6,11,3,4,8,22,1,1,7,12), "group" = rep(c(rep("A",4),rep("B",4)),times = 2), "replicate" = c(rep(1,8),rep(2,8))) LDA_prepare_plot(x) # data(LDAdata) # Z1 <- subset.data.frame(LDAdata,subset = name == unique(LDAdata$name)[1]) # LDA_prepare_plot(Z1[,c("S-value","# Tested","# Clonal growth","Group", # "replicate")])
calculation of clonogenic survival in a table of data from a limiting dilution assay (LDA) experiment (i.e. cells, wells, positive wells, group).
LDA_survival(x, name = "cell line a")
LDA_survival(x, name = "cell line a")
x |
numeric data.frame or matrix with three columns (cells, wells, positive wells, group) |
name |
optional: experiment name (e.g. name of cell line) |
list object with LDA-activities as returned by LDA_activity_single
x <- data.frame("cells" = c(10,50,100,250,10,50,100,250), "wells" = rep(25,8), "positive" = c(2,5,10,20,1,2,6,11), "group" = c(rep("A",4),rep("B",4))) act <- LDA_survival(x)
x <- data.frame("cells" = c(10,50,100,250,10,50,100,250), "wells" = rep(25,8), "positive" = c(2,5,10,20,1,2,6,11), "group" = c(rep("A",4),rep("B",4))) act <- LDA_survival(x)
calculate clonogenic survival fraction from LDA_activity objects.
LDA_survival_single(act.0, act.x)
LDA_survival_single(act.0, act.x)
act.0 |
reference activity |
act.x |
activity after treatment |
list object with survival fraction, estimated confidence intervals (by error propagation through first order Taylor series approximation and by combination of 84
x.a <- data.frame("cells" = c(10,50,100,250), "wells" = rep(25,4), "positive" = c(2,5,10,20)) x.b <- data.frame("cells" = c(10,50,100,250), "wells" = rep(25,4), "positive" = c(1,2,6,11)) act.a <- LDA_activity_single(x.a) act.b <- LDA_activity_single(x.b) sf <- LDA_survival_single(act.0 = act.a,act.x = act.b) data(LDAdata) cell.line <- unique(LDAdata$name)[1] x <- subset.data.frame(LDAdata, subset = (name==cell.line) & (Group < 2)) act <- LDA_activity(x[,c(4:6,3)]) sf <- LDA_survival_single(act.0 = act[[1]],act.x = act[[2]])
x.a <- data.frame("cells" = c(10,50,100,250), "wells" = rep(25,4), "positive" = c(2,5,10,20)) x.b <- data.frame("cells" = c(10,50,100,250), "wells" = rep(25,4), "positive" = c(1,2,6,11)) act.a <- LDA_activity_single(x.a) act.b <- LDA_activity_single(x.b) sf <- LDA_survival_single(act.0 = act.a,act.x = act.b) data(LDAdata) cell.line <- unique(LDAdata$name)[1] x <- subset.data.frame(LDAdata, subset = (name==cell.line) & (Group < 2)) act <- LDA_activity(x[,c(4:6,3)]) sf <- LDA_survival_single(act.0 = act[[1]],act.x = act[[2]])
show table with activities and clonogenic survival from limiting dilution assay (LDA) data.
LDA_table(x, ref_class = "unknown", uncertainty = "act")
LDA_table(x, ref_class = "unknown", uncertainty = "act")
x |
numeric data.frame or matrix with at least three columns (cells, wells, positive wells, group (optional)) |
ref_class |
name of reference class for calculation of SF values |
uncertainty |
method for calculating the uncertainty bands of survival fractions ("act" (default) for combining the activity confidence intervals; "ep" for error propagation via first order Taylor series expansion.) |
table
x <- data.frame("cells" = c(10,50,100,250,10,50,100,250), "wells" = rep(25,8), "positive" = c(2,5,10,20,1,2,6,11), "group" = c(rep("A",4),rep("B",4))) LDA_table(x,ref_class = "A")
x <- data.frame("cells" = c(10,50,100,250,10,50,100,250), "wells" = rep(25,8), "positive" = c(2,5,10,20,1,2,6,11), "group" = c(rep("A",4),rep("B",4))) LDA_table(x,ref_class = "A")
LDA data from 11 cell lines, up to 4 biological replicates and up to 6 treatments.
data(LDAdata)
data(LDAdata)
data.frame with columns: "name", "replicate", "Group", "S-value", "# Tested", "# Clonal growth"
data(LDAdata)
data(LDAdata)