datadist <- bindDist(c("chisq", "t", "f"), list(df=5), list(df=3), list(df1=3, df2=5))
# Plot the joint distribution of Variables 1 and 2 with correlation of 0.5
plotDist(datadist, r=0.5, var=1:2)
# Plot the marginal distribution of the variable 3
plotDist(datadist, var=3)
Run the code above in your browser using DataLab