Cvičenie3

Male cvičenie

Náhravám aj kod ako som prácoval nahral som si excel do projektu a cez roširenie knižnice som ho vedel priamoi prečitať v Rstudio.

# Inštalácia balíka
# install.packages("readxl")

# Načítanie balíka
 library(readxl)

# Otvorenie Excelu
 udaje <- read_excel("oilprices.xlsx")

# Zobrazenie údajov a názvov stĺpcov
# View(udaje)
# names(udaje)

# Výber troch stĺpcov s údajmi o aktívach
X <- udaje[, c("brent_price","wti_price","gpr_index")]

# Kontrola typov údajov – stĺpce musia byť číselné
str(X)

tibble [4,047 × 3] (S3: tbl_df/tbl/data.frame)
 $ brent_price: num [1:4047] 76.3 77.8 78.2 78.6 77.2 ...
 $ wti_price  : num [1:4047] 77.3 79.1 79.8 80.2 78.9 ...
 $ gpr_index  : num [1:4047] 80.7 80.7 80.7 80.7 80.7 ...

# Výpočet kovariančnej matice
C <- cov(X, use = "complete.obs")

# Výpis matice
C

            brent_price wti_price gpr_index
brent_price   553.62613 478.35041  41.23142
wti_price     478.35041 431.69717  78.65223
gpr_index      41.23142  78.65223 995.98249

# Výpočet vlastných čísel a vlastných vektorov
vysledok <- eigen(C, symmetric = TRUE)

# Vlastné čísla
vysledok$values

[1] 1069.562909  902.331817    9.411064

# Vlastné vektory – každý stĺpec je jeden vlastný vektor
vysledok$vectors

          [,1]       [,2]        [,3]
[1,] 0.4794154 -0.5801662  0.65845886
[2,] 0.4522600 -0.4796670 -0.75191786
[3,] 0.7520783  0.6582756  0.03242626