datatab<- read.table(system.file("doc", "expl1_cellsurvcurves.txt", package="CFAssay"), header=TRUE, sep="\t")
X<- subset(datatab, cline=="okf6TERT1")
fit<- cellsurvLQfit(X)
#pdf("okf6TERT1_experimental_plots.pdf")
plotExp(fit)
#dev.off()
## Not run:
# x <- 1
# plotExp(X) #yields an error for this data type
# ## End(Not run)
Run the code above in your browser using DataLab