## ----include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(
  comment = "#>",
  collapse = TRUE
)

## ----echo=FALSE-------------------------------------------------------------------------
options(width = 90)

## ---------------------------------------------------------------------------------------
library("grex")
data("gtexv7")
id <- gtexv7[101:200]
df <- grex(id)
tail(df)

## ---------------------------------------------------------------------------------------
filtered_genes <-
  df[
    !is.na(df$"entrez_id"),
    c("ensembl_id", "entrez_id", "hgnc_symbol", "gene_biotype")
  ]
head(filtered_genes)