# not run
# z = matrix(rnorm(30),nrow=5,ncol=6);
# row.names(z) <- LETTERS[1:NROW(z)];
# colnames(z) <- LETTERS[1:NCOL(z)];
# row.annotations <- data.frame(y=1:5, char = I(letters[1:5]))
# L3 <- LETTERS[1:3]
# column.annotations <- data.frame(y=1:6, char = I(letters[1:6]), fac=sample(L3, 6, replace=TRUE))
# to.genee(z, row.annotations, column.annotations, column.hclust=hclust(dist(t(z))));
Run the code above in your browser using DataCamp Workspace