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"))


eckartbindewald/bfxapps2 documentation built on Feb. 6, 2025, 3:22 a.m.