## Load HUGIN net file
tf <- system.file("huginex", "chest_clinic.net", package = "gRain")
chestf <- loadHuginNet(tf, trace=1)
chest <- as.gmInstance(chestf)
## Save a copy
td <- tempdir()
saveHuginNet(chest, paste(td,"/chest.net",sep=''))
## Load the copy
chestf2 <- loadHuginNet(paste(td,"/chest.net",sep=''))
chest2 <- as.gmInstance(chestf2)
tf <- system.file("huginex", "golf.net", package = "gRain")
golff <- loadHuginNet(tf, trace=1)
golf <- as.gmInstance(golff)
saveHuginNet(golf, paste(td,"/golf.net",sep=''))
golff2 <- loadHuginNet(paste(td,"/golf.net",sep=''))
golf2 <- as.gmInstance(golff2)
Run the code above in your browser using DataLab