# NOT RUN {
alpha <- 0.05
p <- c(0.1,0.15,0.1)
n <- c(30,15,50)
mu <- c(0,0,0)
sigma <- c(1,1,1)
N <- 100
GPQW(n,p,mu,sigma,N)
# }
# NOT RUN {
p <- c(0.1,0.15,0.1,0.6)
n <- c(30,15,10,50)
mu <- c(0,0,0,0)
sigma <- c(1,1,1,2)
C2 <- rbind(c(-1,1,0,0),c(-1,0,1,0),c(-1,0,0,1),c(0,-1,1,0),c(0,-1,0,1),c(0,0,-1,1))
N <- 1000;
GPQW(n,p,mu,sigma,N,C2 = C2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab