obj <- AddModuleScore(obj, signature)
new.clus <- grep(pattern="Cluster\\d", x=colnames(obj@meta.data))
obj.meta.dat <- obj@meta.data[, new.clus]
colnames(obj.meta.dat) <- names(signature)
obj.meta.dat <- cbind(obj.meta.dat, obj@meta.data[,1:(new.clus[1]-1)])
