if (FALSE) {
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