ligerex <- createLiger(list(ctrl = ctrl, stim = stim))
ligerex <- normalize(ligerex)
ligerex <- selectGenes(ligerex)
ligerex <- scaleNotCenter(ligerex)
ligerex <- optimizeALS(ligerex, k = 5, max.iter = 2)
ligerex <- quantile_norm(ligerex)
ligerex <- louvainCluster(ligerex)
plotGeneViolin(ligerex, "CD74", by.dataset = FALSE)
plotGeneViolin(ligerex, "CD74")
Run the code above in your browser using DataLab