sample

This is my Assignment

2 + 3

[1] 5

Here is another line

x <- 6
y <- 3

x * y

[1] 18

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

mean(a)

[1] 4.4

median(b)

[1] 4

sd(a)

[1] 2.302173

cor(a, b)

[1] 0.590503

plot(a, b)