# NOT RUN {
w <- c(0.3,0.7)
G <- matrix(c(0,1,1,0),nrow=2,byrow=TRUE)
alpha <- 0.05
delta <- c(0,2)
rho <- 0.0
corr <- matrix(c(1,rho,rho,1), nrow=2)
method="rga"
rga2pwr(w=w, G=G, alpha=alpha, delta=delta, corr=corr, method=method)
# }
Run the code above in your browser using DataLab