data(rats)
allrats <- networkfamily(rats,network(rats))$nw
allrats <- nwfsort(allrats)
## delete # to run the following three commands
#dir.create("c:/temp")
#genpicfile(allrats,outdir="c:/temp/pic/")
#genlatex(allrats,outdir="c:/temp/pic/",picdir="c:/temp/pic/")
## LATEX FILE:
#\documentclass{article}
#\usepackage{array,pictex}
#\begin{document}
#\input{scoretable}
#\end{document}
Run the code above in your browser using DataLab