In edsandorf/gizmo: A collection of tools and utility functions

knitr::opts_chunk$set(echo = FALSE)

\titlepage

Create a function that can add two numbers together

add <- function(x, y) {
  return(x + y)
}

The simple MNL model

$$ \Pr(i_{nit}|\beta) = \frac{\exp(\beta X_{nit})}{\sum_{j=1}^{J}\exp(\beta X_{njt})} $$ where

• $\beta$ is a vector of parameters to be estimated
• $X_{nit}$ the levels of the attributes

A new section

A slide with a block

\begin{block}{A standard block} Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. \end{block}

\begin{exampleblock}{An example block} Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. \end{exampleblock}

\begin{alertblock}{An alert block} Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. \end{alertblock}

A new subsection

Slide with Bullets

• Bullet 1

• Bullet 2

  • Bullet 3

• Numbered a. Numbered

• Numbered

A two-column layout

\begin{columns} % First column \column{0.75\textwidth} ```r library(ggplot2) ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length)) + geom_point(aes(color = Species), show.legend = FALSE)

  % Second column
  \column{0.25\textwidth}
  A graph 
\end{columns}

### Slide with R Output

```r
summary(cars)

Slide with Plot

plot(pressure)

\usebeamertemplate{finalpage}

edsandorf/gizmo documentation built on Oct. 7, 2022, 3:45 p.m.