# NOT RUN {
seeded <- rep(10^(seq(1,5,0.5)),each = 3)
df.1 <- data.frame(
"seeded" = seeded,
"counted1" = 0.4 * seeded^1.1 * rnorm(n = length(seeded),1,0.05),
"counted2" = 0.2 * seeded^1.125 * rnorm(n = length(seeded),1,0.05),
"counted3" = 0.05 * seeded^1.25 * rnorm(n = length(seeded),1,0.05))
df.2 <- data.frame("seeded" = seeded,
"counted1" = 0.5 * seeded^1.01 * rnorm(n = length(seeded),1,0.05),
"counted2" = 0.4 * seeded^1.0125 * rnorm(n = length(seeded),1,0.05),
"counted3" = 0.2 * seeded^1.025 * rnorm(n = length(seeded),1,0.05))
SF <- vector("list",2)
SF[[1]] <- analyze_survival(RD = df.1,
name = "cell line a",
xtreat = c(0,1,4),
C = 20)
SF[[2]] <- analyze_survival(RD = df.2,
name = "cell line b",
xtreat = c(0,1,4))
# }
Run the code above in your browser using DataLab