ligerex <- createLiger(list(ctrl = ctrl, stim = stim))
if (any(rowSums(ctrl) == 0) || any(rowSums(stim) == 0)) {
# example datasets do not have missing data, thus put in a condition
# Though the function will return unchanged object if no missing found
ligerex <- removeMissingObs(ligerex)
}
Run the code above in your browser using DataLab