From a network family, generate LaTeX output
The networks in a network family is arranged as pictex-graphs in a LaTeX-table.
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)nwl |
object of class |
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' |
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. |
Susanne Gammelgaard Bottcher,
Claus Dethlefsen rpackage.deal@gmail.com.
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)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.