version 1.2-27

cran · Apr 5, 2006 · ac312e3 · ac312e3
1 parent 32a7408
commit ac312e3
Show file tree

Hide file tree

Showing 4 changed files with 24 additions and 162 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: deal
-Version: 1.2-26
-Date: 2005-11-3
+Version: 1.2-27
+Date: 2006-04-05
 Title: Learning Bayesian Networks with Mixed Variables
 Author: Susanne Gammelgaard B�ttcher <alma@math.aau.dk>, Claus Dethlefsen <aas.claus.dethlefsen@nja.dk>.
 Maintainer: Claus Dethlefsen <aas.claus.dethlefsen@nja.dk>
@@ -9,4 +9,4 @@ Description: Bayesian networks with continuous and/or discrete variables can be
 License: GPL version 2 or newer
 URL: http://www.math.aau.dk/~dethlef/novo/deal
 Collate: addarrows.R autosearch.R conditional.R cycletest.R drawnetwork.R findex.R generic.R genlatex.R heuristic.R inspectprob.R jointcont.R jointdisc.R jointprior.R learning.R makesimprob.R maketrylist.R master.R network.R networkfamily.R node.R numbermixed.R perturb.R postc.R postc0.R postdist.R readnet.R rnetwork.R savenet.R unique.R anetworkclass.R dealObjects.R usermenus.R
-Packaged: Thu Nov  3 14:48:42 2005; 86c9
+Packaged: Wed Apr  5 08:46:55 2006; 86c9
diff --git a/demo/ksl.R b/demo/ksl.R
@@ -28,4 +28,6 @@ ksl.heuristic <- heuristic(getnetwork(ksl.search),ksl,
 
 thebest2 <- getnetwork(ksl.heuristic)
 
-savenet(thebest2, file("ksl.net"))
+## Run this to transfer network to .net format
+## (read by e.g. Hugin, www.hugin.com)
+# savenet(thebest2, file("ksl.net"))
diff --git a/demo/ksl.net b/demo/ksl.net
diff --git a/man/genlatex.Rd b/man/genlatex.Rd
@@ -3,8 +3,8 @@
 % Author          : Claus Dethlefsen
 % Created On      : Sat May 25 23:02:07 2002
 % Last Modified By: Claus Dethlefsen
-% Last Modified On: Wed Mar 16 13:55:56 2005
-% Update Count    : 14
+% Last Modified On: Wed Mar 22 10:00:24 2006
+% Update Count    : 17
 % Status          : Unknown, Use with caution!
 % 
 
@@ -55,7 +55,7 @@ genpicfile (nwl,outdir="pic/",prefix="pic",w=1.6,h=1.6,bigscale=3)
   \item{\{outdir\}\{picpre\}nice.tex}{pictex file with the best network.}
 }
 
-\seealso{\code{\link{networkfamily}}}
+\seealso{\code{\link{networkfamily}}, \code{\link{pictex}}}
 
 \author{
   Susanne Gammelgaard Bøttcher \email{alma@math.aau.dk}, \cr
@@ -82,6 +82,21 @@ allrats <- nwfsort(allrats)
 #\input{scoretable}
 #\input{picnice}
 #\end{document}
+
+data(ksl)
+ksl.nw  <- network(ksl)
+ksl.prior <- jointprior(ksl.nw,64)
+mybanlist <- matrix(c(5,5,6,6,7,7,9,
+                    8,9,8,9,8,9,8),ncol=2)
+banlist(ksl.nw) <- mybanlist                  
+ksl.nw <- getnetwork(learn(ksl.nw,ksl,ksl.prior))
+ksl.search <- autosearch(ksl.nw,ksl,ksl.prior,
+                      trace=TRUE)
+ksl.searchlist <- makenw(ksl.search$table,ksl.search$nw)
+ksl.searchlist <- nwfsort(ksl.searchlist)
+\dontrun{genpicfile(ksl.searchlist)}
+\dontrun{genlatex(ksl.searchlist)}
+
 }
 
 \keyword{iplot}