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