Partical Aplications

Name : Farhan Dzaffa Arfianto

NIM : 220605110099

Class : C

Institue : Maulana Malik Ibrahim Islamic State University of Malang

Lecture : Prof. Dr. Suhartono, M.Kom

library(mvtnorm)
library(ggplot2)
library (matlib)

set.seed(123) 
n <- 1000
mean <- c(1, 2)
cov <- matrix(c(2, 1, 1, 3), nrow = 2)
sampel <- rmvnorm(n, mean, cov)

ggplot(data.frame(x = sampel[,1], y = sampel[,2]), aes(x, y)) +
  geom_point() +
  labs(x = "Variabel X", y = "Variabel Y") +
  ggtitle("Scatter Plot dari Sampel Multivariat")

matriks_kov <- cov(sampel)
print(matriks_kov)

##           [,1]      [,2]
## [1,] 1.8536275 0.8370828
## [2,] 0.8370828 3.0642873

inverse_kov <- solve(matriks_kov)
print(inverse_kov)

##            [,1]       [,2]
## [1,]  0.6154003 -0.1681112
## [2,] -0.1681112  0.3722637