# NOT RUN {
win=gwindow()
group=ggroup(container=win,horizontal=FALSE)
object=new("ref_dc")
object<-charge(object)
objectreport=new("report_mig_mult")
choice_c(object=object,objectreport=objectreport,dc=1)
# }
Run the code above in your browser using DataLab