knitr::opts_chunk$set(echo = FALSE)

Table of Converted Gene Symbols

genes_df <- params$df
colnames(genes_df) <- c("Old Symbol", "Converted Symbol", "Change", "p-value")
genes_df <- genes_df[genes_df[, 1] != genes_df[, 2], ]
knitr::kable(genes_df, align = "c", table.caption.prefix ="")

Table of Genes without Interactions (not found in the PIN)

org_df <- params$original_df
missing_df <- org_df[!org_df[, 1] %in% params$df[, 1], ]
knitr::kable(missing_df, align = "c", table.caption.prefix ="")


egeulgen/pathfindR documentation built on Feb. 1, 2024, 4:34 a.m.