# 1. Library TOmicsVis package
library(TOmicsVis)
# 2. Use example dataset
data(gene_expression2)
head(gene_expression2)
data(gene_go_kegg)
head(gene_go_kegg)
# 3. Default parameters
res <- table_cross(gene_expression2, gene_go_kegg, inter_var = "Genes")
head(res)
# 4. Set left_index = TRUE, right_index = FALSE
res <- table_cross(gene_expression2, gene_go_kegg,
inter_var = "Genes", left_index = TRUE, right_index = FALSE)
head(res)
# 5. Set left_index = FALSE, right_index = TRUE
res <- table_cross(gene_expression2, gene_go_kegg,
inter_var = "Genes", left_index = FALSE, right_index = TRUE)
head(res)
Run the code above in your browser using DataLab