Skip to content

Instantly share code, notes, and snippets.

@vpnagraj
Created March 3, 2016 20:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vpnagraj/902283bcca381e144b0c to your computer and use it in GitHub Desktop.
Save vpnagraj/902283bcca381e144b0c to your computer and use it in GitHub Desktop.
example of an rmarkdown document that uses latex syntax in pander table headings
---
title: "RMarkdown(Pandoc(LaTeX))"
author: "VP Nagraj"
date: "March 3, 2016"
output:
html_document:
keep_md: yes
---
```{r, warning=FALSE, message=FALSE}
# set random seed
set.seed(123)
# set K for number of replications
K <- 1000
# rate (lambda)
lambda <- 3
# n
n <- c(5, 10, 15, 20, 25)
# simulate data
sims <- lapply(n, function(x) replicate(K, rexp(x, lambda)))
# calculate sample means
sims_mean <- lapply(sims, function(x) apply(x, 2, mean))
# calculate sample variances
sims_var <- lapply(sims, function(x) apply(x, 2, var))
library(pander)
xbars <- sapply(sims_mean, mean)
vars <- sapply(sims_mean, var)
expected_s2 <- sapply(sims_var, mean)
propdata <- data.frame(n = n,
xbars = xbars,
vars = vars,
expected_s2 = expected_s2)
# assign names of dataframe with latex syntax
names(propdata) <- c("n", "$\\mu_{\\bar{x}}$", "$\\sigma^2_{\\bar{x}}$", "$E(s^2)$")
pander(propdata)
```
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment