comparison heatmap.r @ 55:680cf68098d5 draft

Uploaded

54:15a18f472cd9

}

# access a label column
get_label <- function(table, column_key) {
    column <- as.numeric(column_key)
    return (c(table[column]))
}

# inflate three columns into matrix
matrify <- function (data) {
    if (ncol(data) != 3)

55:680cf68098d5

}

# access a label column
get_label <- function(table, column_key) {
    column <- as.numeric(column_key)
    column_data <- as.character(table[column][[1]])
    return (c(column_data))
}

# inflate three columns into matrix
matrify <- function (data) {
    if (ncol(data) != 3)