# Example input data frame
input <- data.frame(
type = c("exon", "exon", "exon", "exon", "exon"),
gene_id = c("gene1", "gene1", "gene2", "gene3", "gene4"),
transcript_id = c("tx1", "tx1", "tx2", "tx3", "tx4"),
exon_number = c(1, 2, 1, 1, 1),
exon_id = c("e1", "e2", "e1", "e1", "e1")
)
# Identify single-exon genes
single_exon_genes <- extract_single_exon(input, level = "gene")
print(single_exon_genes)
# Identify single-exon transcripts
single_exon_transcripts <- extract_single_exon(input, level = "transcript")
print(single_exon_transcripts)
Run the code above in your browser using DataLab