powered by
dim.p <- 8 mu <- c( rep(- 0.5 , dim.p -1) , 3 ) cov <- diag( dim.p ) * 0.5 + 0.5 n.itr <- 800 integ.range <- 10 res.val <- mvorpb( dim.p , mu , cov ,n.itr , integ.range ) print(res.val)
Run the code above in your browser using DataLab