datatab<- read.table(system.file("doc", "expl1_cellsurvcurves.txt", package="CFAssay"), header=TRUE, sep="\t")
X<- subset(datatab, cline=="okf6TERT1")
fit<- cellsurvLQfit(X)
print(fit)
#pdf("okf6TERT1_experimental_plots.pdf")
plotExp(fit)
#dev.off()
Run the code above in your browser using DataLab