up

2year/1trimester/Advanced Multivariate Statistics/Assignment/assignment1/assignment1.R

@@ -0,0 +1,36 @@
+#Homework - Sept 27, 2020 - Advanced Multivariate Statistics
+
+
+#=============
+#Part.a) 
+
+library(distr6)
+d = distr6::Uniform$new(lower = 0 , upper = 7)
+#(i)
+integrate(d$pdf, lower = -Inf , upper = Inf)
+
+#(ii)
+curve(d)
+plot(d)
+
+#(iii)
+#The random variable is X
+
+#(iv)
+d$mgf(t = 1)
+
+
+
+#=============
+#Part.c) 
+
+
+x1 = c(12,11,8,14,10)
+x2 = c(10,8,5,11,7)
+x3= c(8,11,11,13,6)
+
+m = matrix(c(x1,x2,x3), ncol = 3)
+
+vector_means = c(mean(x1), mean(x2), mean(x3))
+vector_means
+cov(m)