##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
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
calculatefromalpha(alpha,dim=3,corr)
Run the code above in your browser using DataLab