r
I am using the tufte-handout class in LaTeX and I want to refer to R using the "correct" sans-serif font. I am currently using
\newcommand{\R}{ {\bf \sffamily R } }
used as …
... function in the \verb|spatstat| \R package ...
What LaTeX "command" / incantation would you use?
In addition to suggestions from @bdh_dtu and @egreg you might want to also add in the xspace package:
\usepackage{xspace}
% combine suggestions from @bdh_dtu and @egreg with xspace
\newcommand{\R}{\textup{\textrm{R}}\xspace}
\xspace tries to be clever about inserting a space after the macro if there would normally be one but not if there shouldn't be one, such as when writing \R. (i.e. ending the line with \R followed by a full stop.
Since you are using tables package of R, you must be using Sweave. Here is a .Rnw file that might work for you. I don't have that much background with R. I just use it for some basic statistical computations. So I am sorry if I can't give you a definite answer whether you can set up the size of the table using the latex() command. If that were your only option, I would suggest asking in CrossValidated.
Save this as foobar.Rnw and put it in your working directory. Now, in R, set your working directory using setwd() (if you haven't yet). Now, run
Sweave("foobar.Rnw")
If you are successful doing this, you should see
You can now run (pdf)latex on ‘tableprosweave.tex’
at the end.
Now, in your working directory, open foobar.tex with your favorite TeX editor and run pdflatex or just run
pdflatex foobar
in your terminal/command line.
foobar.Rnw:
\documentclass{article}
\usepackage{Sweave}
\usepackage{booktabs}
\begin{document}
\SweaveOpts{concordance=TRUE, keep.source=TRUE}
<<echo=false>>=
options(width=60)
@
<<>>=
require(tables)
require(Hmisc)
booktabs() % To use booktabs formatting
# Create sample data
Condition <- factor(rep(c("Control", "Experimental"), 150))
Time <- factor(rep(c("Baseline", "Baseline", "Three days", "Three days",
"Three weeks", "Three weeks"), 50))
var1 <- rnorm(300)
var2 <- rnorm(300)
var3 <- rnorm(300)
var4 <- rnorm(300)
var5 <- rnorm(300)
var6 <- rnorm(300)
# Add to data frame, sprinkle in missing values
d <- data.frame(Condition, Time, var1, var2, var3, var4, var5, var6)
d[sample(1:300, 30), c("var1", "var2", "var3", "var4")] <- NA
d[sample(1:300, 20), c("var5", "var6")] <- NA
# Create helper functions
mean.narm <- function(x) mean(x, na.rm = TRUE)
sd.narm <- function(x) sd(x, na.rm = TRUE)
count.obs <- function(x) sum(!is.na(x))
# Use tabular() from tables
tab <- tabular((Heading("Variable 1") * var1 + Heading("Variable 2") * var2 +
Heading("Variable 3") * var3 + Heading("Variable 4") * var4 + Heading("Variable 5") * var5 +
Heading("Variable 6") * var6) * Time ~ Condition * ((N=count.obs) + (Mean=mean.narm) + (SD=sd.narm)),
data = d)
@
\newpage
% Here, \small was written just before the code chunk.
\begin{center}
\small
<<results=tex,echo=FALSE>>=
latex(
tab
)
@
\end{center}
\vfill
% Here, \scriptsize was written just before the code chunk.
\begin{center}
\scriptsize
<<results=tex,echo=FALSE>>=
latex(
tab
)
@
\end{center}
%<<>>=
%# Ensure that pdflatex is used when I call latex(), below
%options(latexcmd = "pdflatex")
%options(dviExtension = "pdf")
%options(xdvicmd = "C:/PROGRA~1/R/R-215~1.3/bin/i386/open.exe")
%# Use the latex() function
%#latex(tab, file="table1.tex")
%@
\end{document}
I have commented out the last lines as I really don't know what they do and to get the file to compile in my computer :-) Here is the second page output.
If you really are just after the table output, I suggest that you just write \small or \footnotesize, etc, before the code chunk. Again, I don't know how to do this with just the latex() function of R. See manual for more information about Sweave.
Some editors make you edit and compile .Rnw directly from source such as Rstudio. AFAIK, Texmaker can also handle it.
Best Answer
If you want to ensure a sans serif upright bold font, just define
If you want to avoid typing
\R{} is a nice program, thenwill allow