Unuses Argument error R code : I have a Problem with the following code for a Sampling Importance Resampling Algorithm. It Returns "log=True: unused Argument" for the declaration of Theta. Hope u can help me!
Thanks


CODE:

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