## Not run:
# data(tissue_example)
#
# # Filter genes and perform k-means
# sd = apply(tissue_example$exp, 1, sd)
# exp2 = tissue_example$exp[sd > 0.75,]
# exp2 = exp2 - apply(exp2, 1, mean)
# kmr = kmeans(exp2, centers = 6, iter.max = 100)
#
# # Create gosummaries object
# gs_kmeans = gosummaries(kmr, exp = exp2, annotation = tissue_example$annot)
# plot(gs_kmeans, panel_height = 0, components = 1:3, fontsize = 8)
# plot(gs_kmeans, classes = "Tissue", components = 1:3, fontsize = 8)
# ## End(Not run)
Run the code above in your browser using DataLab