未使用引数エラーRコード

Question

サンプル重要度リサンプリングアルゴリズムの次のコードに問題があります。未使用の引数

シータの宣言のために：それは本当

ログ=返します。

T = 1e5 
theta <- runif(T,0,1, log=TRUE) 
log.p <- function(x) dbeta(x, 3000+711, 17000+2201-711) 
log.s <- function(x) dunif(x, 0, 1,) 
w <- function(t) log.p(t)/log.s(t) 
HA <- sum(w(theta)%*%theta)/T 

Answer 1

エラーメッセージがrunif関数にはlog引数がないことを言っています。 （たとえば、?runifを実行している）の機能の*unif家族のマニュアルを点検すると、私たちはこの示しています。私は間違っているんだけど、から、それはrunif（ように見える場合

Usage: 

    dunif(x, min = 0, max = 1, log = FALSE) 
    punif(q, min = 0, max = 1, lower.tail = TRUE, log.p = FALSE) 
    qunif(p, min = 0, max = 1, lower.tail = TRUE, log.p = FALSE) 
    runif(n, min = 0, max = 1) 

Answer 2

をより良くRに精通誰かが私を修正）」doesnのログ引数を取る。ここでは何もしないので、単にlog = trueを渡してください。