tests/rsbn.demo.list.R

#
# This was added by paquet.pl (version 0.04) (beginning)
#
library("rebastaba");
#
# This was added by paquet.pl (version 0.04) (end)
#
chemin <- searchpaths()[grep("rebastaba",searchpaths())];
chemin <- paste(chemin,"/files/",sep="");
# creating bn objects
# 
# 10_02_12 10_02_15 10_03_10 10_04_16 10_04_20
# 10_05_25 10_06_09 10_06_21 10_06_30 10_08_12
# 10_09_03


############################################################
form3titre("Demonstrating going from a list to a bn and vice versa");

#
# the basics
print(list2bn(bn2list(rebastaba.bn0)));
print(list2bn(bn2list(rebastaba.bn1)));
print(list2bn(bn2list(rebastaba.bn2)));
print(list2bn(bn2list(rebastaba.bn3)));
print(list2bn(bn2list(rebastaba.bn4)));
print(list2bn(bn2list(rebastaba.bn5)));
print(list2bn(bn2list(rebastaba.bn6)));

#
# getting a /bn/ from a data file
if (!exists("chemin")) {
    cat("A file into the private 'files' directory is needed\n");
    erreur("The package must be installed to run this demo");
}
fifi <- "rsbn.demo.bn.multivariate_node.txt";
fifi <- paste(chemin,fifi,sep="");
bn1 <- read8bn(fifi);
form3titre("Having a look to the initial /bn/",0);
print(bn1,quoi="nv");
#
# transforming it to a list
li1 <- bn2list(bn1);
form3titre("Looking at the resulting list");
str(li1);
#
# coming back to the /bn/
bn2 <- list2bn(li1);
form3titre("Having a look to the final /bn/",0);
print(bn2,quoi="nv");

Try the rebastaba package in your browser

Any scripts or data that you put into this service are public.

rebastaba documentation built on May 31, 2017, 3:26 a.m.