# NOT RUN {
w <- c(0.3,0.5,0.2)
G <- matrix(c(0,1/3,2/3, 1/2,0,1/2, 1/5,4/5,0),nrow=3,byrow=TRUE)
p <- c(0.012, 0.051, 0.021)
p <- c(0.012, 0.051, 0.019)
alpha <- 0.05
ga3h(w=w,G=G,p=p, alpha=alpha)
# }
Run the code above in your browser using DataLab