Bio epitranscriptomics m6a differential
Skill FridrichMethod/awesome-skills/skills/bio-epitranscriptomics-m6a-differential
Identify differential m6A methylation between conditions from MeRIP-seq. Use when comparing epitranscriptomic changes between treatment groups or cell states.From its SKILL.md
npx -y skills add FridrichMethod/awesome-skills --skill bio-epitranscriptomics-m6a-differentialAssembled from the repository path, not quoted from the project. Check it against their README if it does not work.
2 things to look at
- no licenseNo license file was found in the repository. Code published without one is not open source by default, so using it at work is a question for whoever answers licensing questions where you are.
- 13 stars13 stars. Stars are a popularity signal and not a quality one, but at this level it is likely that nobody has read this closely except its author, and you would be relying on your own review.
SKILL.md
2.3 KB, 588 tokens by cl100k_base, as published. Nobody here has run it
<!--
# COPYRIGHT NOTICE
# This file is part of the "Universal Biomedical Skills" project.
# Copyright (c) 2026 MD BABU MIA, PhD <[email protected]>
# All Rights Reserved.
#
# This code is proprietary and confidential.
# Unauthorized copying of this file, via any medium is strictly prohibited.
#
# Provenance: Authenticated by MD BABU MIA
-->
Differential m6A Analysis
exomePeak2 Differential Analysis
library(exomePeak2)
# Define sample design
# condition: factor for comparison
design <- data.frame(
condition = factor(c('ctrl', 'ctrl', 'treat', 'treat'))
)
# Differential peak calling
result <- exomePeak2(
bam_ip = c('ctrl_IP1.bam', 'ctrl_IP2.bam', 'treat_IP1.bam', 'treat_IP2.bam'),
bam_input = c('ctrl_Input1.bam', 'ctrl_Input2.bam', 'treat_Input1.bam', 'treat_Input2.bam'),
gff = 'genes.gtf',
genome = 'hg38',
experiment_design = design
)
# Get differential sites
diff_sites <- results(result, contrast = c('condition', 'treat', 'ctrl'))
QNB for Differential Methylation
library(QNB)
# Requires count matrices from peak regions
# IP and input counts per sample
qnb_result <- qnbtest(
IP_count_matrix,
Input_count_matrix,
group = c(1, 1, 2, 2) # 1=ctrl, 2=treat
)
# Filter significant
# padj < 0.05, |log2FC| > 1
sig <- qnb_result[qnb_result$padj < 0.05 & abs(qnb_result$log2FC) > 1, ]
Visualization
library(ggplot2)
# Volcano plot
ggplot(diff_sites, aes(x = log2FoldChange, y = -log10(padj))) +
geom_point(aes(color = padj < 0.05 & abs(log2FoldChange) > 1)) +
geom_hline(yintercept = -log10(0.05), linetype = 'dashed') +
geom_vline(xintercept = c(-1, 1), linetype = 'dashed')
Related Skills
- m6a-peak-calling - Identify peaks first
- differential-expression/de-results - Similar statistical concepts
- modification-visualization - Plot differential sites
What ships with it: 2 files
3.6 KB alongside SKILL.md
examples/
- differential_m6a.R2.0 KB
- usage-guide.md1.6 KB