# first example
dim=3
alpha=rep(0,dim)
alpha[1] = 0.3333
alpha[2] = 0.25
alpha[3] = 0.2
corr=diag(3)
corr12=0.3016
corr[1,2]=corr12
corr[2,1]=corr12
corr13=0.5630
corr[1,3]=corr13
corr[3,1]=corr13
corr23=0.5630
corr[2,3]=corr23
corr[3,2]=corr23
multistagetp(alpha,corx=corr)
# second example
VCGCAandError=c(0.40,0.20,0.20,0.40,2.00)
VCSCA=c(0.20,0.10,0.10,0.20)
corr.matrix = multistagecor (maseff=0.40, VGCAandE=VCGCAandError,
VSCA=VCSCA, T=c(1,1,5), L=c(1,3,8), Rep=c(1,1,1))
N1=4500;N2=919;N3=45;Nf=10
Q=multistagetp(c(N2/N1,N3/N2,Nf/N3), corr=corr.matrix)Run the code above in your browser using DataLab