MCMC:Method 3 : Psuedo Dominating Density method

D <- diag(c(2, 2)) k <- 0.9 f <- function(z) 1/(2pi)1/sqrt(det(cov_mat)) * exp(-0.5(z-mu)%%solve(cov_mat)%%(z-mu)) h <- function(z) dmvnorm(z, c(0, 0), D) results_3 <- matrix(NA, nrow = N, ncol = 2) r
相關文章
相關標籤/搜索