Displaying 2 results from an estimated 2 matches for "textrm".
2009 Mar 17
1
Combining Sweave and fancyvrb
...e Rnw file: the first part shows what I would
like to get, the second what I tried but didn't work.
\documentclass[12pt]{article}
\usepackage{/usr/local/R-2.7.0-inst/share/texmf/Sweave}
\usepackage{fancyvrb}
\DefineVerbatimEnvironment{Rcode}{Verbatim}{%
commentchar=@,
frame=lines, label=\textrm{\bf R code}, numbers=left,
framesep=10pt, fontshape=sl, commandchars=\\\{\}}
\SweaveOpts{keep.source = TRUE}
\begin{document}
I would like to produce something like the following, but using Sweave. Note
the label on line \ref{Rcode:sum}.
\begin{Rcode}
> y <- c(53, 57, 66, 67, 72) # count...
2006 Aug 31
0
Ooops, small mistake fixed (pretty printing multiple models)
...'*' or '**' or '***' based on the 90%, 95% and 99% cutoffs on N(0,1)
stars <- function(t) {
t <- abs(t)
n <- -1 + as.numeric(cut(t,breaks=c(-0.01,-qnorm(c(0.05, 0.025, 0.005)),Inf)))
if (n == 0) {
return("")
} else {
return(paste("$^\\textrm{",
paste(rep("*", n), sep="", collapse=""),
"}$", sep=""))
}
}
specialised.latex.generation <- function(numbers) {
cat("\\hline\n")
for (j in 1:ncol(numbers)) {
cat(" & ",...