Seurat number of clusters. averages <- AverageExpression(pbmc, return.