unitsize(1cm);

pen p=invisible;
real marge=0.2, EspH=2, EspV=2;

object objet_1=draw("$R_n$",box,(EspH,EspV),marge,p),
       objet_2=draw("$\overline{R_n}$",box,(EspH,-EspV),marge,p),
       objet_11=draw("$R_{n+1}$",box,(2*EspH,EspV*5/3),marge,p),
       objet_12=draw("$\overline{R_{n+1}}$",box,(2*EspH,EspV*1/3),marge,p),
       objet_21=draw("$R_{n+1}$",box,(2*EspH,-EspV*1/3),marge,p),
       objet_22=draw("$\overline{R_{n+1}}$",box,(2*EspH,-EspV*5/3),marge,p);

add(new void(picture pic, transform t) {
    draw(pic,Label("$p_n$",UnFill(1)),(0,0)--point(objet_1,W,t),Center);
    draw(pic,Label("$q_n$",UnFill(1)),(0,0)--point(objet_2,W,t),Center);
    draw(pic,Label("$\frac{1}{20}$",UnFill(1)),point(objet_1,E,t)--point(objet_11,W,t),Center);
    draw(pic,Label("$\frac{19}{20}$",UnFill(1)),point(objet_1,E,t)--point(objet_12,W,t),Center);
    draw(pic,Label("$\frac{1}{5}$",UnFill(1)),point(objet_2,E,t)--point(objet_21,W,t),Center);
    draw(pic,Label("$\frac{4}{5}$",UnFill(1)),point(objet_2,E,t)--point(objet_22,W,t),Center);
});

// Voir le même arbre dans les exemples suivants
// obtenu avec l'extension(ette) gm_probabilytree :
// la syntaxe s'en trouve simplifiée.