data(ascus)
fit <- fitcopula(data=ascus,
SID = "StudyID",
formula.se= StudyID ~ Test,
seed=3,
copula="fgm")
ss <- summarycopula(object=fit)
ss <- summary(fit$model)Run the code above in your browser using DataLab