# From a network family, generate LaTeX output The networks in a network family is arranged as pictex-graphs in a LaTeX-table. latin1 ```r 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' ## Returns 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. ## See Also `networkfamily`, `pictex` ## Author(s) Susanne Gammelgaard Bottcher, Claus Dethlefsen rpackage.deal@gmail.com . ## Examples ```r 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) ```

genlatex function