Q1.1

<aside> 💡 170,1667

</aside>

mean(air$Y1951)

Q1.2

<aside> 💡 417,391

</aside>

max(unlist(air["Jan",]))
> 417

max(unlist(air["Feb",]))
> 391

Q1.3

<aside> 💡 [ 0.9231306 0.9396086 0.9591651 ]

</aside>

cor(air)[c("Y1952", "Y1953", "Y1954"), "Y1951"]

Q1.4

<aside> 💡 [ 0.9956477 0.9944752 ]

</aside>

cor(t(air))[c("Jan", "Feb"), "Nov"]

Q1.5

<aside> 💡 (b)

</aside>

plot(colSums(air), type="b")