k=c(-200,0.4308,0.9804,1.8603)
Q=c(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(Q=Q,corr=corr)
#####
# code for testing the parameter stages
#####
multistagegain(Q=Q,corr=corr,stages=TRUE)Run the code above in your browser using DataLab