# NOT RUN {
n.P<-1
n.B<-1
n.C<-1
lambda.vec<-c(1)
prop.vec<-c(0.3)
coef.mat<-matrix(c(0,1,0,0),4,1)
corr.vec=NULL
corr.mat=matrix(c(1,0.2,0.1,0.2,1,0.5,0.1,0.5,1),3,3)
finalmat=overall.corr.mat(n.P,n.B,n.C,lambda.vec,prop.vec,coef.mat,
corr.vec=NULL,corr.mat)
finalmat
# }
Run the code above in your browser using DataLab