ligerex <- createLiger(list(ctrl = ctrl, stim = stim))
ligerex <- normalize(ligerex)
ligerex <- selectGenes(ligerex)
ligerex <- scaleNotCenter(ligerex)
ligerex <- optimizeALS(ligerex, k = 5, max.iters = 1)
ligerex <- quantile_norm(ligerex)
ligerex <- louvainCluster(ligerex, resolution = 0.3)
wilcox.results <- runWilcoxon(ligerex, compare.method = "clusters")
wilcox.results <- runWilcoxon(ligerex, compare.method = "datasets", data.use = c(1, 2))
if (length(ligerex@h5file.info) > 0) {
# For HDF5 based object
# Need to sample cells and read into memory before running Wilcoxon test
ligerex <- readSubset(ligerex, slot.use = "norm.data", max.cells = 1000)
wilcox.results <- runWilcoxon(ligerex, compare.method = "clusters")
}
Run the code above in your browser using DataLab