[おはようございます]
でぢたるねいちぶのとらです．
じぶんせんようの ToraPad をつかっています．
あつさ 2mm で超軽量なんだけど
……
おかしいなあ，
スワイプしても写真が動かないぞ
……?
source("http://hosho.ees.hokudai.ac.jp/~kubo/ce/r/R2WBwrapper.R")
clear.data.param()
n <- 100
set.data("Y", rpois(n, lambda = 3.5)) # 架空データ
X <- sample(c(1:3, NA), n, replace = TRUE) # NA まじりの架空データ
X.isNA <- is.na(X)
set.data("V.Na", c(1:n)[X.isNA]) # NA であるデータ番号
set.data("V.NotNa", c(1:n)[!X.isNA]) # NA でないデータ番号
set.data("Length.V.Na", length(V.Na))
set.data("Length.V.NotNa", length(V.NotNa))
modelf <- function() # ここから R ソースファイル内に BUGS code をうめこむ
{
# X == NA data
for (i in 1:Length.V.Na) {
Y[V.Na[i]] ~ dpois(mean1)
}
# X != NA data
for (i in 1:Length.V.NotNa) {
Y[V.NotNa[i]] ~ dpois(mean2)
}
# parameters
log(mean1) <- log.mean1
log.mean1 ~ dnorm(0.0, 1.0E-4)
log(mean2) <- log.mean2
log.mean2 ~ dnorm(0.0, 1.0E-4)
}
write.model(modelf, "model.bug.txt") # ここから下はまた R
set.param("log.mean1", 0)
set.param("log.mean2", 0)
post.bugs <- call.bugs(
file = "model.bug.txt",
n.chains = 3,
debug = FALSE,
n.iter = 3000, n.burnin = 500, n.thin = 5
)
plot(post.bugs)
ar vx google-chrome-stable_current_i386.deb
……
いろいろ展開されて
data.tar.lzma
というファイルができる
tar --lzma -xvf data.tar.lzma
……
重要なのは --lzma
した場合には xvf ではなく -xvf
とすること
opt/ 以下に Google Chrome が展開されているので
sudo cp opt/google/chrome/libpdf.so /usr/lib/chromium-browser/
送っていただきました．
ありがとうございます．
「中上級者むき」
ということで，
本屋に並んでる各種「入門」本とはまったく別ものです
……
誰もが必要とするものではありません．
そうですね，
「必要でないヒト」の例をあげると，
修士論文の締切がまじかになったけど，
データ解析を R でやれと言われたけど，
ぜんぜんよくわからない
……
といったヒトは手を出さないほうがよいでしょう．
