## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
1 + 2
3 - 5
4 * 2
6 / 3

## -----------------------------------------------------------------------------
greeting <- "Hello!"

## -----------------------------------------------------------------------------
greeting

## -----------------------------------------------------------------------------
number <- 1

## -----------------------------------------------------------------------------
number + 10

## -----------------------------------------------------------------------------
vec <- c(1, 2, 3, 4)

## -----------------------------------------------------------------------------
a <- c(1, 2, 3)
b <- c(4, 5, 6)
a + b

## -----------------------------------------------------------------------------
a <- c(1, 2, 3)
a * 2

## -----------------------------------------------------------------------------
column_1 <- c(1, 2, 3, 4)
column_2 <- c(4, 3, 2, 1)

df <- data.frame(column_1, column_2)
head(df)

## -----------------------------------------------------------------------------
mean(c(1, 2, 3))

## -----------------------------------------------------------------------------
vector_of_numbers <- c(2, 4, 6)
mean(vector_of_numbers)