In meyer-lab/cell-cycle-growth: Analysis of Cell Cycle Reporter Data

TODO: Drug dose response analysis

library(lineage)

Dead cells are plotted as red.

Values are $[\alpha, \beta, \gamma_1, \gamma_2]$

data <- readData("AU565-control.csv")

cFit <- fitModel(data)

data <- simModel(data, cFit)

plotSim(data)

dataDrug <- readData("AU565-50nM-doxo.csv")

dFit <- fitModelDelay(dataDrug, cFit)

dataDrug <- simModel(dataDrug, dFit, controlP = cFit)

plotSim(dataDrug)

dataDrug <- readData("AU565-250nM-lapatinib.csv")

dFit <- fitModelDelay(dataDrug, cFit)

dataDrug <- simModel(dataDrug, dFit, controlP = cFit)

plotSim(dataDrug)

dataDrug <- readData("AU565-10nM-gem.csv")

dFit <- fitModelDelay(dataDrug, cFit)

dataDrug <- simModel(dataDrug, dFit, controlP = cFit)

plotSim(dataDrug)

dataDrug <- readData("AU565-3nM-paclitaxel.csv")

dFit <- fitModelDelay(dataDrug, cFit)

dataDrug <- simModel(dataDrug, dFit, controlP = cFit)

plotSim(dataDrug)

meyer-lab/cell-cycle-growth documentation built on May 13, 2019, 6:09 p.m.