投稿

1月, 2013の投稿を表示しています

10,000歩!

イメージ
金沢駅から金沢大学まで歩いて97分。7.2km歩いて、約1万歩。いい散歩になった。 雪は溶け始めていたので、歩きやすかったが、大学まての最後1.5kmは大変だった。かき氷の上を歩いているような感じだった。 もう、雪はいいわ。早く夏になってくれないかな。

Riyarさんを水産食堂へ

イメージ
いまかわべ先生のところに、台湾からの研究者がきている。せっかくなので、このあいだWei-Chuan Chiang(Riyar)さん(台湾行政院農業委員会水産試験所東部海洋生物研究センターの研究員)を水産食堂につれていってあげました。もちろん刺身定食とアマダイの素揚げをごうちそうしました。

ついた、が寒い

イメージ
雪 everywhere!

今日から金沢大学へ

イメージ
今日から金沢大学へいきます。せっかく長崎は暖かくなってきたのに。 いまは大村空港のスタバ。隣の客は関西弁べんでの熱意にカニについて議論。焼いたカニを鍋にいれると、味がわからなくなるらしい。

R2OpenBUGSの並行計算例

イメージ
Parallel R2OpenBUGS Example ここから並行計算のコードを紹介します。普通に計算すると8分ぐらいかかりましたが、平行でやると2分弱かかった。75%時間の短縮に成功しました。ちなみに、この リンク を参考にしました。 Parallel R2OpenBUGS Example Greg Nishihara 2013 January 28 This is an example of how I use OpenBUGS with R2OpenBUGS during my daily work. I make artificial data to illustrate the technique to run R2OpenBUGS in parallel. First load the libraries needed. library(snow) library(snowfall) library(R2OpenBUGS) First create a working directory if it doesn't exist. WORKDIR = "~/Data/R2OpenBUGS_Parallel_Example" if (!file.exists(WORKDIR)) { dir.create(WORKDIR) } Next set the number of chains, iterations, and burnins to run. NCHAINS = 4 NITER = 40000 NBURNIN = 10000 NTHIN = 1 Next, create separate directories for each chain. chain.directories = paste(WORKDIR, "/chain", 1:NCHAINS, sep = "") if (sum(file.exists(chain.directories)) == 0) { sapply(chain.directories, dir.create) } Make 1000 fak