スキップしてメイン コンテンツに移動

!RSBML利用編

Rで[[SBML|http://sbml.org/Main_Page]] (Systems Biology Markup Language) を読み込む方法を調べたのでメモします。RSBMLを使いDOMとして読み込みます。読み込んだDOMをRgraphvizで図示します。

SBMLは生物モデルを表現するためのXML言語で、多くのシミュレータなので採用されている言語規格です。具体的には遺伝子やタンパク質、代謝などのネットワークを表現するときに使います。ネットワーク構造と反応、反応に関するパラメータを格納することができます。

環境は MacBook Air と Mac OS X (10.5)、R 2.9.1です。

libsbmlを dmg でダウンロードしてインストールする。

http://sourceforge.net/projects/sbml/files/libsbml/3.4.1/libsbml-3.4.1-libxml2-macosx.dmg/download

RSBMLをインストールする。
<<<
sudo R
> source("http://bioconductor.org/biocLite.R")
> biocLite("RSBML")
>>>

Graphviz をインストールする。

http://www.ryandesign.com/graphviz/download/Graphviz%202.12%20Revision%203%20Intel.dmg

sudo cp /usr/local/graphviz-2.12/lib/libgvc.3.dylib /usr/local/lib/

Rgraphviz を入れる。
<<<
sudo R
> source("http://bioconductor.org/biocLite.R")
> biocLite("Rgraphviz")
>>>

SBMLを読み込む。まず適当なSBMLをどこかからゲットする
<<<
curl -O http://www.staff.ncl.ac.uk/d.j.wilkinson/smfsb/autoreg-2-1.xml
>>>

SBMLをDOMとして読み込む。S4オブジェクトになる。
<<<
R
> library(rsbml)
> dom <- rsbml_read("~/Desktop/autoreg-2-1.xml")
> dom
SBML Document (level = 2, version = 1)
Model of AutoRegulatoryNetwork (Auto-regulatory network)

Compartments (1):
Cell

Species (5):
Gene() in Cell
P2Gene(P2.Gene) in Cell
....
Rna() in Cell
P() in Cell

Reactions (8):
Gene + P2 -> P2Gene by k1 * Gene * P2 where k1 := 1
P2Gene -> Gene + P2 by k1r * P2Gene where k1r := 10
....
Gene -> Gene + Rna by k2 * Gene where k2 := 0.01
Rna -> Rna + P by k3 * Rna where k3 := 10

UnitDefinitions (1):
substance := item

>>>

Model の species ID へアクセスするには、みんな大好き apply family の sapply を使う。
<<<
> sapply(species(model(dom)), id)
Gene P2Gene Rna P P2
"Gene" "P2Gene" "Rna" "P" "P2"
>>>
Reactions も同じようにアクセスできる。
<<<
> sapply(reactions(model(dom)), id)
RepressionBinding ReverseRepressionBinding
"RepressionBinding" "ReverseRepressionBinding"
Transcription Translation
"Transcription" "Translation"
Dimerisation Dissociation
"Dimerisation" "Dissociation"
RnaDegradation ProteinDegradation
"RnaDegradation" "ProteinDegradation"
>>>

DOM を Rgraphviz で図示する。rsbml_graph で S4 オブジェクトを graph オブジェクトへ変換できる。あとは graph オブジェクトを操作できるライブラリ、例えば、Rgraphviz などで好きに操作できる。
<<<
> library(graph)
> g <- rsbml_graph(dom)
> g
A graphNEL graph with directed edges
Number of Nodes = 13
Number of Edges = 18
> nodes(g)
[1] "Gene" "P2Gene"
[3] "Rna" "P"
[5] "P2" "RepressionBinding"
[7] "ReverseRepressionBinding" "Transcription"
[9] "Translation" "Dimerisation"
[11] "Dissociation" "RnaDegradation"
[13] "ProteinDegradation"
> library(Rgraphviz)
> g.layout <- layoutGraph(g)
> pdf("autoreg-2-1.pdf")
> graph.par(list(nodes=list(fontsize=30)))
> renderGraph(g.layout)
> dev.off()
>>>


{{image 0, '画像の説明', nil, [500,500]}}



参考URLはここにまとめた。http://b.hatena.ne.jp/ichan/SBML/

コメント

コメントを投稿

このブログの人気の投稿

シーケンスアダプタ配列除去ツールまとめ

FASTQ/A file からシーケンスアダプター配列やプライマー配列を除くためのプログラムをまとめてみる。 まず、配列の除去には大別して2つの方向性がある。ひとつは、アダプター配列を含む「リード」を除いてしまう方法。もうひとつは除きたい配列をリードからトリムする方法である。後者のほうが有効リードが増えるメリットが、綺麗に除ききれない場合は、ゲノムへのマップ率が下がる。 気をつける点としては、アダプター/プライマーの reverse complement を検索するかどうか。paired end の際には大事になる。クオリティでトリムできるものや、Paired-end を考慮するものなどもある。アダプター/プライマー配列の文字列を引数として直接入力するものと、multi fasta 形式で指定できるももある。 From Evernote: シーケンスアダプタ配列除去ツールまとめ TagDust http://genome.gsc.riken.jp/osc/english/software/src/nexalign-1.3.5.tgz http://bioinformatics.oxfordjournals.org/content/25/21/2839.full インストール: curl -O http://genome.gsc.riken.jp/osc/english/software/src/tagdust.tgztar zxvf tagdust.tgz cd tagdust/ make sudo make install rehash 使いかた: tagdust adapter.fasta input.fastq -fdr 0.05 -o output.clean.fastq -a output.artifactual.fastq 解説: 入出力形式は fastq/a が使える。リード全体を除く。速い。アダプター配列を fasta 形式で入力できるのが地味に便利で、これに対応しているものがなかなかない。Muth–Manber algorithm (Approximate multiple
2 件のコメント
続きを読む

ChIP-seq の Peak calling tool を集めたよ

ほかにもあったら教えてください。プログラム/プロジェクト名がツールのプロジェクトサイトへのリンク。その論文タイトルは論文へのリンクになっています。 ツール名の50音順です。 CCCT -  A signal–noise model for significance analysis of ChIP-seq with negative control , chipdiff と同じグループ CisGenome -  CisGenome: An integrated software system for analyzing ChIP-chip and ChIP-seq data . ChromSig -  ChromaSig: a probabilistic approach to finding common chromatin signatures in the human genome. ChIPDiff -  An HMM approach to genome-wide identification of differential histone modification sites from ChIP-seq data ChIP-Seq Analysis Server FindPeaks -  FindPeaks 3.1: a tool for identifying areas of enrichment from massively parallel short-read sequencing technology. Version 4.0 is out. GLITR -  Extracting transcription factor targets from ChIP-Seq data HPeak -  HPeak: an HMM-based algorithm for defining read-enriched regions in ChIP-Seq data MACS -  Model-based Analysis of ChIP-Seq (MACS). PeakSeq -  PeakSeq enables systematic scoring of ChIP-seq experimen
コメントを投稿
続きを読む

ふりかえり

2013年4月に独立して7年目が終わろうとしている。ざっくりこれまでの研究を振り返る。 2013年から2017年の4年はフルスタックのゲノム科学、ゲノムインフォのラボを立ち上げることに集中していた。しかも人様が作った技術のユーザとして研究するのではなく、新しい技術を開発できるラボを目指した。ウェットの開発については、ドライのPIであっても本物を創りたいと考えたので世界最強や唯一の技術を目指した。特に1細胞ゲノム科学に注力した。そのためにまずグラントを取り仲間を集め技術を作った。幸いウェットは元同僚を中心に、ドライはドクター新卒の優秀な人材に囲まれた。並行して開発した実験やデータ解析技術を応用するため、データ生産や共同研究を支えるチームも作った。 2015年ぐらいからドライの論文が少しずつ出始め、2018年にはウェットのフラッグシップとなる技術RamDA-seqとQuartz-Seq2の2つ出版された。2021年1月現在、これらはそれぞれ世界唯一と世界最高性能の2冠である。これが達成できた大きな理由のひとつは、反応原理を徹底的に理解し制御するというチームやそのメンバーの特性にある。ここは世界最高レベルだと確信している。 2017-2018年はラボの移転がありウェットの開発や実験が大きく停滞した。その間ドライのチームががんばってくれて2019-2020年にはドライ研究の収穫の時期がきた。またRamDA-seqの試薬キット化・装置化、Quartz-Seq2とそのデータ解析技術での起業、実験試薬や道具の上市など社会実装の年でもあった。実験が少なくなった分、ウェットのメンバーの解析技術がかなり向上した時期でもある。これはウェットとドライがうまくコミュニケーションできる証拠でもある。 2019-2020年はウェット技術のフラッグシップを駆使した共同研究がいくつか花咲いた。主に「再生医療分野」への応用と「細胞ゆらぎと転写制御の謎」に迫る基礎的なテーマが対象で、もともと1細胞ゲノム科学を始めたときに目標としたものだった。 並行してゲノムデータの科学計算環境のインフラ開発に注力してきた。beowulf型PCクラスタからクラウドの移行やハイブリッド化、DevOpsによる自動構築、ワークフロー言語の導入、動的レポート生成などの導入・開発を行いこれらを日常的に使うラボになった。これらはNI
コメントを投稿
続きを読む