Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Plot_cluster.R
par(mfrows=c(clustering$cluster,1))
for(j in 1:max(clustering$cluster))
{
x <- 1:12
d <- d[clustering$cluster == j,]
plot.default(x = NA, xlim = c(1, 12),
ylim = c(min(y), max(y)), xlab = "Time", ylab = "Expression changes",
main = paste("Cluster", j), axes = FALSE)
for(k in 1:nrows(d)) {
lines(x, d[k, ])
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.