x.a <- data.frame("cells" = c(10,50,100,250),
"wells" = rep(25,4),
"positive" = c(2,5,10,20))
x.b <- data.frame("cells" = c(10,50,100,250),
"wells" = rep(25,4),
"positive" = c(1,2,6,11))
act.a <- LDA_activity_single(x.a)
act.b <- LDA_activity_single(x.b)
sf <- LDA_survival_single(act.0 = act.a,act.x = act.b)
data(LDAdata)
cell.line <- unique(LDAdata$name)[1]
x <- subset.data.frame(LDAdata, subset = (name==cell.line) & (Group < 2))
act <- LDA_activity(x[,c(4:6,3)])
sf <- LDA_survival_single(act.0 = act[[1]],act.x = act[[2]])
Run the code above in your browser using DataLab