genlatex {deal}

From a network family, generate LaTeX output

Description

The networks in a network family is arranged as pictex-graphs in a LaTeX-table.

Usage

genlatex(nwl,outdir="pic/",prefix="scoretable",picdir="",picpre="pic",
         ncol=5,nrow=7,width=12/ncol,vadjust=-1.8)
genpicfile (nwl,outdir="pic/",prefix="pic",w=1.6,h=1.6,bigscale=3) 

Arguments

nwl

object of class networkfamily containing a list of objects of class network.

outdir

character string, the directory for storing output.

prefix

character string, the filename (without extension) of the LaTeX file. The filenames of the picfiles begin with the given prefix.

picdir

character string, the directory where pic-files are stored.

picpre

character string, prefix for pic-files.

ncol

integer, the number of columns in LaTeX table.

nrow

integer, the number of rows in LaTeX table.

width

numeric, the width of each cell in the LaTeX table.

vadjust

numeric, the vertical adjustment in LaTeX table.

w

numeric, the width of pictex objects

h

numeric, the height of pictex objects

bigscale

numeric, the scaling of the best network, which is output in 'nice.tex'

Value

Files:

{outdir}{picpre}xx.tex

one pictex file for each network in the network family, indexed by xx.

{outdir}{prefix}.tex

LaTeX file with table including all pictex files.

{outdir}{picpre}nice.tex

pictex file with the best network.

Author(s)

Susanne Gammelgaard Bottcher,
Claus Dethlefsen [e-mail].

See Also

networkfamily, pictex

Examples

data(rats)
allrats <- getnetwork(networkfamily(rats,network(rats)))
allrats <- nwfsort(allrats)

## Not run: dir.create("c:/temp")
## Not run: genpicfile(allrats,outdir="c:/temp/pic/")
## Not run: genlatex(allrats,outdir="c:/temp/pic/",picdir="c:/temp/pic/")

## LATEX FILE:
#\documentclass{article}
#\usepackage{array,pictex}
#\begin{document}
#\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)
## Not run: genpicfile(ksl.searchlist)
## Not run: genlatex(ksl.searchlist)