demo/rsba.demo.ion.R

In rebastaba: Handling Bayesian networks

chemin <- searchpaths()[grep("rebastaba",searchpaths())];
chemin <- paste(chemin,"/files/",sep="");
# script test for rsba
# 
# 09_10_12 09_10_13 10_02_10 10_06_09
#
#

form3titre("Testing sort8ion");
uu <- new("nom",x=list(A=letters[1:3],C=c("1","2"),B=""));
vv <- nv2ion(0,uu);
print(sort8ion(vv,uu),"a");
print(sort8ion(vv,uu,"a"),"a");

ww <- nv2ion(c("A[-]","B","A[c]","B"),rbsb.nom3,"v");
print(sort8ion(ww,rbsb.nom3),"a");

zz <- nv2ion(c("A","B","A[c]","B"),rbsb.nom3,"v");
print(sort8ion(zz,rbsb.nom3),"a");


form3titre("Demonstrating and testing the use of 'nv2ion'");

# preparing the /nom/s to parse
nm <- vector("list");
nm[[1]] <- new("nom", x=list(A=letters[1:3], B="", C=c("1", "2")));

# parsing and recompacting
for (ii in bf(nm)) {
    res0 <- nm[[ii]];
    form3line(wid=1);
    form3titre("Current value of 'rs0'",0);
    print(res0);
    form3affiche(nv2ion("B",res0,"n"));
    form3affiche(nv2ion("B",res0,"N"));
    form3affiche(nv2ion("B",res0,"v"));
    #
    form3affiche(nv2ion("A",res0,"n"));
    form3affiche(nv2ion("A",res0,"N"));
    form3affiche(nv2ion("A",res0,"v"));
    #
    form3affiche(nv2ion(1,res0,"n"));
    form3affiche(nv2ion(1,res0,"N"));
    form3affiche(nv2ion(1,res0,"v"));
    #
    form3affiche(nv2ion(0,res0,"n"));
    form3affiche(nv2ion(0,res0,"N"));
    form3affiche(nv2ion(0,res0,"v"));
    #
    form3affiche(nv2ion("-",res0,"n"));
    form3affiche(nv2ion("-",res0,"N"));
    form3affiche(nv2ion("-",res0,"v"));
    form3line(wid=1);
}