data(telomerase)
fit1 <- fitcopula(data=telomerase,
SID = "ID",
copula="fgm",
iter = 4000,
warmup = 1000,
thin = 10,
seed=3,
cores=1)
data(ascus)
fit2 <- fitcopula(data=ascus,
SID = "StudyID",
copula="fgm",
formula.se= StudyID ~ Test - 1,
seed=3)Run the code above in your browser using DataLab