ligerex <- createLiger(list(ctrl = ctrl, stim = stim))
if (length(ligerex@H) > 0) {
# Downsampling is calculated basing on factorization result
ligerex <- readSubset(ligerex, slot.use = "norm.data", max.cells = 100)
}
Run the code above in your browser using DataLab