# NOT RUN {
object=new("ref_par")
win=gwindow()
group=ggroup(container=win,horizontal=FALSE)
object<-charge(object)
report_mig_char=new("report_mig_char")
objectreport=report_taille # for other test
choicemult(object,objectreport=report_mig_char)
# }
Run the code above in your browser using DataLab