Description Usage Arguments Details Value Author(s) See Also Examples
View source: R/cellsurvLQdiff.R
The function does an ANOVA test for overall comparison of the parameters alpha and beta of two linear-quadratic cell survival curves. The parameters are fitted simultaneously to the data with this function, i.e. no other function is necessary to derive the fits.
1 | cellsurvLQdiff(X, curvevar, method="ml", PEmethod="fit")
|
X |
A data frame which contains columns |
curvevar |
Character string, which has to be one of the column names of the data frame |
method |
Determines the method used for the fit. |
PEmethod |
Controls the value of the plating efficiencies, i.e. the colony counts for untreated cells. |
In the data frame X, Exp identifies the experimental replicates and may be numeric or non-numeric. method="ml" for maximum-likelihood uses R function glm with family "quasipoisson" and link function "log". method="ls" uses R function lm.
The function returns an object of class cellsurvLQdiff containing three elements, fit1, fit2 and anv. fit1 and fit2 are objects of class glm when method="ml" or of class lm when method="ls". fit1 has parameters alpha and beta fitted in common for both cell survival curves. fit2 has parameters alpha and beta fitted differently for both curves. anv is of class anova and contains the F-test. Test results are printed, however, the full result inlcuding curve parameters is returned invisibly, i.e. the function has to be used with print or assigned to a variable, say for e.g. fitcomp as in the example below.
Herbert Braselmann
glm and family with references for generalized linear modelling. anova, cellsurvLQfit.
1 2 3 4 5 6 7 8 9 10 11 12 13 | datatab<- read.table(system.file("doc", "expl1_cellsurvcurves.txt", package="CFAssay"), header=TRUE, sep="\t")
names(datatab) #contains a column "cline"
table(datatab$cline)
fitcomp<- cellsurvLQdiff(datatab, curvevar="cline") #using default options
print(fitcomp)
plot(cellsurvLQfit(subset(datatab, cline=="okf6TERT1")), col=1)
plot(cellsurvLQfit(subset(datatab, cline=="cal33")), col=2, add=TRUE)
legend(0, 0.02, c("okf6TERT1", "cal33"), text.col=1:2)
#using different options:
print(cellsurvLQdiff(datatab, curvevar="cline", method="ls"))
print(cellsurvLQdiff(datatab, curvevar="cline", PEmethod="fix"))
print(cellsurvLQdiff(datatab, curvevar="cline", method="ls", PEmethod="fix"))
print(cellsurvLQdiff(datatab, curvevar="cline", method="franken"))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.