k=c(-200,0.4308,0.9804,1.8603)
corr=matrix( c(1, 0.3508,0.3508,0.4979,
0.3508 ,1, 0.3016,0.5630,
0.3508, 0.3016,1 ,0.5630,
0.4979, 0.5630,0.5630,1),
nrow=4
)
multistagegain.each(Q=c(0.4308,0.9804,1.8603),corr=corr)
# further examples 3 for the JSS paper
alpha1<- 1/24
alpha2<- 1
Q=multistagetp(alpha=c(alpha1,alpha2),corx=corr[2:3,2:3])
k=c(-200,Q)
corr=matrix( c(1, 0.7071068, 0.9354143,
0.7071068, 1, 0.7559289,
0.9354143, 0.7559289, 1
),
nrow=3
)
alphaofx=pmvnorm(lower=k,corr=corr)
multistagegain(Q=Q,corr=corr,)
multistagegain(Q=Q,corr=corr,stages=TRUE)
multistagegain.each(Q=Q,corr=corr)Run the code above in your browser using DataLab