Hi all,
I've got two different cell lines (GR, CTRL) treated with the same drug (log concentrations) and I've got two confluence measurements (0h, 72h) in technical replicates. Now I'm asking myself how to calculate and fit my dose response curve in order to get the EC50.
My first thought was to calculate the mean of all replicates for each concentration for both time points and subtract the values:
mean(conc1, 72h) - mean (conc1, 0h) = mean (conc1)
Normalization: mean (conc1) / mean (control w/o drug) = response (conc1)
So now my problem is that I've got negative response values for some concentrations and I don't know how to explain it. I think there must be some issues with the controls or the seeding density in the beginning.....
Since i would like to use R, here is the script I've tried so far (but i can use excel as well, if that helps):
> #data
> dput(incu2)
structure(list(cell_line = c("gr", "gr", "gr", "gr", "gr", "gr",
"gr", "gr", "gr", "ctrl", "ctrl", "ctrl", "ctrl", "ctrl", "ctrl",
"ctrl", "ctrl", "ctrl"), concentration = c(0, 0.001, 0.003, 0.006,
0.01, 0.03, 0.1, 0.3, 1, 0, 0.001, 0.003, 0.006, 0.01, 0.03,
0.1, 0.3, 1), confluency = c(100, 83.920208263529, 76.3771201517205,
70.3196127286416, 87.6047426653901, 73.0547963016434, 86.3958825883478,
75.3635915616798, 85.5326850667842, 100, 80.1453427282592, 58.9885983810855,
-8.76517036651747, 30.8378747876174, -10.9003403181362, -12.3609052077884,
-13.2655463052258, -7.59527744074285), SD = c(15.7598415556835,
14.2622497012775, 12.9371236180482, 8.81951439588246, 7.10287224997218,
17.3220664874979, 6.25569240713838, 8.46384011306015, 7.30473445811372,
31.5484294608729, 3.3825298294676, 10.3122018541101, 10.3122018541101,
23.3186966817872, 9.20802160933323, 5.53843226980965, 4.56351641188441,
3.33165433655451)), row.names = c(NA, -18L), class = c("tbl_df",
"tbl", "data.frame"))
>
> # fitting
> all.LL4_2
> # plot
> plot(all.LL4_2,
+ xlab = expression(paste("Gefitinib Concentration [", mu, "M", "]")),
+ ylab = "% of Control", col = TRUE,
+ legendPos = c(0.0008, 25),
+ legendText = c("GR", "CTRL"))
>
>
>
> #calculate ED50
> ED(all.LL4, 50)
Estimated effective doses
Estimate Std. Error
e:ctrl:50 0.0034286 NA
e:gr:50 36.3489928 NA
Since the GR cell line is resistant, I'm not so much concerned about the values. But I'm not sure if my approach is legit.
I know that there is no statistical significance, but what type of error should I display - SD of the technical replicates?
Much appreciate any help!
Best,
Oli