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

勝手に添削、R言語でモンテカルロ法

追記: 0093さんにツッコミを頂いた。マトリックスでなくてベクターで乱数を用意しておけばもっと高速。確かにその通りですね。ありがとうございました。(今思えば、実務ばっかりやっていて、データはマトリックスに入っているもの、という先入観があって、無意識にわざわざマトリックスにしてしまったorz...)

[[R言語でモンテカルロ法|http://d.hatena.ne.jp/necoffee/20071119/1195478473]]になぜか[[今になってツッコむ id:syou6162さんとid:kkobayashiさんは自重しろw|http://b.hatena.ne.jp/entry/http://d.hatena.ne.jp/necoffee/20071119/1195478473]]

まあわたくしめも、それベクトルで書くとRらしくなるよ! と書こうと思ったら、[[id:kkobayashi|http://b.hatena.ne.jp/kkobayashi/20080623#bookmark-8998139]]さんに先を越されていたorz...

さて、気を取りなおして... 別な方向から添削してみる。ベクトル計算すれば速くなるという噂を聞いたことがあると思うけど、実はオリジナルのソースよりも [[id:kkobayashi|http://b.hatena.ne.jp/kkobayashi/20080623#bookmark-8998139]]さん の例はちょっと遅くなる。格納するマトリックスを先に用意しておくと2桁オーダー速くなるよ。

<<<
# id:necoffee を改変
montecarlo <- function(n) {
count <- 0
for(i in 1:n) {
s <- runif(2)
if( s[1]^2 + s[2]^2 < 1 ) {
count <- count + 1
}
}
return(4*count/n)
}

# id:kkobayashi version, ランライナーでかっこいい
montecarlo_vec <- function(n) {
sum(replicate(n, sum(runif(2)^2)) < 1)*4/n
}

# ソースは俺w マトリックスで乱数を用意しておく。微妙なコード
montecarlo_vec2 <- function(n) {
y <- matrix(runif(n*2),nrow=2)
4*sum( (y[1,]^2 + y[2,]^2) < 1 )/n
}

# 0093 さんバージョン、ベクターで乱数を用意しておく。シンプルでわかりやすくしかも速い
montecarlo_vec3 <- function(n) {
x <- runif(n)
y <- runif(n)
4*sum( (x^2 + y^2) < 1 )/n
}

# ちゃんと円周率が計算できるか、表示してみる。
print( montecarlo(100000) )
print( montecarlo_vec(100000) )
print( montecarlo_vec2(100000) )
print( montecarlo_vec3(100000) )

# 10回繰り返し計算して計算速度の平均を出す
print( mean(replicate(10, system.time(montecarlo(100000)))[3,]) )
print( mean(replicate(10, system.time(montecarlo_vec(100000)))[3,]) )
print( mean(replicate(10, system.time(montecarlo_vec2(100000)))[3,]) )
print( mean(replicate(10, system.time(montecarlo_vec3(100000)))[3,]) )
>>>
これを montecarlo.r に保存して実行してみる。
<<<
source("montecarlo.r")
> source("montecarlo.r")
[1] 3.14388
[1] 3.14016
[1] 3.15508
[1] 3.139
[1] 1.5938 # montecarlo
[1] 1.6062 # montecarlo_vec1
[1] 0.0538 # montecarlo_vec2
[1] 0.0288 # montecarlo_vec3
>>>
31倍ぐらい速くなったよ。ベクターのバージョンでは、55倍速くなりました!

このブログの人気の投稿

Quartz-Seqで1細胞/微量RNA-Seqを始めたい方へ

はじめに 新しい高精度な1細胞RNA-Seq, Quartz-Seq論文を出してから、各方面から多く相談を受けています。
Sasagawa Y and Nikaido I, et. al. Quartz-Seq: a highly reproducible and sensitive single-cell RNA-Seq reveals non-genetic gene expression heterogeneity. Genome Biology. 14. 2013 
そこで、新しく1細胞RNA-Seqを始める方へ、僕達が理想だと考えている技術導入の手順を紹介したいと思います。また我々の方法は1細胞(6-14 pg Total RNA)だけでなく pg-ng オーダーの少量RNAからシーケンスが可能です。そのような方も以下の手順が参考になると思います。 0. 1細胞/微量RNA-Seqが本当に必要なのか検討する 1細胞/微量RNA-Seqでは、現時点でQuartz-Seqが世界最高の性能を持っている訳ですが、十分なサンプルを用意し、通常のRNA-Seqしたほうが、より精度の高いデータが得られます。なので、基本的には、サンプルをたくさん集める方法をしっかり検討すべきです。まずは、戦略面と技術面で1細胞/微量RNA-Seqが本当に必要かを検討する基準について書きます。 0.1. 戦略面での検討 あなたが抱えているプロジェクトが、1細胞/微量RNA-Seqでなければアプローチできないかどうかを問い直すことが重要です。
基本的には以下の2つの状況で、1細胞/微量RNA-Seqが役に立ちます。
a. 細胞状態が連続的に変化し、さまざまな細胞状態が、細胞集団に含まれている場合 (振動現象、ゆらぎなど) b. 細胞状態を特定するマーカーがほどんどわかっていない場合
最初から細胞状態が2状態しかないことが明らかで、しかも細胞状態を代表する遺伝子が分かっている、という状況では、FACSなどで cell sorting し、目的の細胞を採取することを考えるべきです。そして、微量RNA-Seqや通常のRNA-Seqで、しっかりと biological replication を取る方が良いでしょう。微量になると、テクニカルなノイズが増えるために、生物学的な差を知るためには、n を…

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

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 string search) を利用。FDRを指定できる。GPL3