Group 1: Seminar 1

Here is the material from today’s seminar.

R Script

# Seminar 1, Group 2

# Basics of R

## Define values

x <- 3 + sin(pi/2)
x
sqrt(x)
y <- sqrt(x)
z <- "word"

## sequence
v <- seq(1,10)
v2 <- 1:10

## vectors/collections
w <- c(12,1,2,3)
typeof(w)
length(w)

## Loop
A <- c("1","2","5","8")
typeof(A)
n <- length(A)
for(i in 1:n){
  print(A[i])
}

## coercion
for(i in 1:n){
  print(as.numeric(A[i]))
}
## also see as.integer or as.character
A <- as.numeric(A)

## Part 2: packages
#install.package("tidyverse")
library(tidyverse)

car_frame <- mpg

ggplot(data=car_frame) +
  geom_point(mapping = aes(x=displ,y=hwy))

ggplot(data=car_frame) +
  geom_point(mapping = aes(x=displ,y=hwy,color=class))

R Markdown

Link to published published markdown: html.

---
title: "Seminar 1, Group 2"
output: html_document
---

## Markdown 

I want a list

- item 1
- item 2
  - sub-item 1

numbers

1. number 1
2. number 2

add math

$$
 Y = X\beta + u
$$
in-line math; $\beta$.

## Add code

code-block:
```{r}
library(tidyverse)

car_frame <- mpg

ggplot(data=car_frame) +
  geom_point(mapping = aes(x=displ,y=hwy))
```