x <- data.frame("cells" = c(10,50,100,250,10,50,100,250),
"wells" = rep(25,8),
"positive" = c(2,5,10,20,1,2,6,11),
"group" = c(rep("A",4),rep("B",4)))
act <- LDA_activity(x)
Run the code above in your browser using DataLab