knitr::opts_chunk$set(echo = FALSE)
count_dataframe <- readr::read_tsv(file.path(getwd(), "datasets", "ch1", "modencodefly_count_table.txt" )) genes <- count_dataframe[['gene']] count_dataframe[['gene']] <- NULL count_matrix <- as.matrix(count_dataframe) rownames(count_matrix) <- genes pheno_data <- readr::read_table2(file.path(getwd(), "datasets", "ch1", "modencodefly_phenodata.txt"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.