ligerex <- createLiger(list(ctrl = ctrl, stim = stim))
# Create a random variable of two categories
ligerex@cell.data$foo <- factor(sample(c(1,2), 600, replace = TRUE))
ligerexFoo <- reorganizeLiger(ligerex, "foo")
Run the code above in your browser using DataLab