Mercurial > repos > guerler > charts

comparison heatmap.r @ 55:680cf68098d5 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author guerler
date Thu, 05 Jun 2014 14:23:41 -0400
parents 5a478e171752
children
comparison
equal deleted inserted replaced
54:15a18f472cd9 55:680cf68098d5
9 } 9 }
10 10
11 # access a label column 11 # access a label column
12 get_label <- function(table, column_key) { 12 get_label <- function(table, column_key) {
13 column <- as.numeric(column_key) 13 column <- as.numeric(column_key)
14 return (c(table[column])) 14 column_data <- as.character(table[column][[1]])
15 return (c(column_data))
15 } 16 }
16 17
17 # inflate three columns into matrix 18 # inflate three columns into matrix
18 matrify <- function (data) { 19 matrify <- function (data) {
19 if (ncol(data) != 3) 20 if (ncol(data) != 3)