## 01-Structures.R

# Code from 01-structures

5 + 5

4 - 1

1 * 2

4 ^ 2

a <- 1

b <- 2

a + b

A <- 3

a + b - A

round(3.1415)

factorial(3)

sqrt(9)

factorial(round(2.0015) + 1)

# Your Turn

# ---------

10 + 2

12 * 3

36 - 6

30 / 3

# ---------

# R objects

foo <- 42

foo <- round(3.1415) + 1

foo

factorial(foo)

foo

rm(foo)

foo

pi

pi <- 1

pi

rm(pi)

pi

# Data structures

# Warm up

# ---------

WorldPhones

# ---------

vec <- c(1, 2, 3, 10, 100)

vec

mat <- matrix(c(1, 2, 3, 4, 5, 6), nrow = 2)

mat

matrix(c(1, 2, 3, 4, 5, 6), nrow = 2)

matrix(c(1, 2, 3, 4, 5, 6), nrow = 3)

vec + 4

vec * 4

vec * vec # element-wise multiplication

vec %*% vec # matrix multiplication (inner)

vec %o% vec # matrix multiplication (outer)

mat

t(mat) # transpose

array(c(1, 2, 3, 4, 5, 6), dim = c(2, 2, 3))

# Data types

1 + 1

3000000

class(0.00001)

"hello"

class("hello")

"hello" + "world"

nchar("hello")

paste("hello", "world")

# Warm up

# ---------

1

"1"

"one"

# ---------

3 > 4

class(TRUE)

class(T)

fac <- factor(c("a", "b", "c"))

fac

class(fac)

# Quiz

# ---------------------

x <- c(1, 2, 3)

x

"x"

# ---------------------

# Your Turn

# ---------------------

vec <- c(1, "R", TRUE)

class(vec)

vec

# ---------------------

# Quiz

# ---------

c(5, "two")

c(TRUE, "a")

c(1, "TRUE")

TRUE + 5

# ---------

as.numeric("1")

as.character(TRUE)

lst <- list(1, "R", TRUE)

class(lst)

list(c(1, 2), TRUE, c("a", "b", "c"))

df <- data.frame(c(1, 2, 3),

c("R","S","T"), c(TRUE, FALSE, TRUE))

class(df)

nvec <- c(one = 1, two = 2, three = 3)

nvec

nlst <- list(one = 1, two = 2, many = c(3, 4, 5))

nlst

ndf <- data.frame(numbers = c(1, 2, 3),

letters = c("R","S","T"),

logic = c(TRUE, FALSE, TRUE))

ndf

names(ndf)

names(nvec)

names(nvec) <- c("uno", "dos", "tres")

nvec