simCOPmicro(runif(1), cop=W) # Frechet lower bound
simCOPmicro(runif(1), cop=P) # Independence copula
simCOPmicro(runif(1), cop=M) # Frechet upper bound
simCOPmicro(runif(1), cop=PSP) # The PSP copula
# Now let us get more complicated and mix two Plackett copulas
# together using the composite2COP as a "compositor." The
# parameter argument becomes more complex, but is passed as
# shown into composite2COP.
para <- list(cop1=PLACKETTcop, cop2=PLACKETTcop,
alpha=0.3, beta=0.5, para1=0.1, para2=50)
simCOPmicro(runif(1), cop=composite2COP, para=para)
Run the code above in your browser using DataLab