#Uždaviniai: 1) Pasirinkti duomenų rinkinį 2) Pagrįsti kintamųjų sąsajas 3) Atlikti aprašomąją statistiką 4) Atlikti grafinę duomenų vizualizaciją 5) Pateikti išvadas

#2) Pasirinkau nagrinėti trijų įmonių – „Pfizer“, „Johnson&Johnson“, „Moderna“ – akcijų kainas. Šios įmonės yra susijusios tuo, kad veikia sveikatos priežiūros sektoriuje ir prasidėjus pasaulinei COVID-19 pandemijai pradėjo gaminti vakcinas nuo koronaviruso.

setwd("C:/Users/User/Desktop/Ekonomikos prognozavimas")
if(!require(readxl)) install.packages('readxl')
## Įkeliamas reikalingas paketas: readxl
## Warning: paketas 'readxl' buvo sukurtas pagal R versiją 4.1.3
library(readxl)
Duomenys <- read_excel("rinkinys.xlsx")

#3) Aprašomosios statistikos

summary(Duomenys)
##      Data               Pfizer         Johnson         Moderna     
##  Length:153         Min.   :41.75   Min.   :160.2   Min.   :118.1  
##  Class :character   1st Qu.:45.59   1st Qu.:165.3   1st Qu.:134.4  
##  Mode  :character   Median :47.76   Median :170.2   Median :151.0  
##                     Mean   :47.61   Mean   :170.1   Mean   :156.2  
##                     3rd Qu.:49.82   3rd Qu.:175.7   3rd Qu.:177.1  
##                     Max.   :54.48   Max.   :179.8   Max.   :210.0  
##                     NA's   :46      NA's   :46      NA's   :46

#Mano analizuojamas laikotarpis susideda iš 153 laiko momentų, šiuo atveju, dienų. Kiekvienos įmonės akcijų kainos yra pateikiamos JAV doleriais. Didžiausia akcijų kaina yra įmonės “Moderna”, mažiausia - “Pfizer”. Skirtumas tarp didžiausios ir mažiausios akcijų kainos yra apie 168 JAV doleriai. Taip pat galima pastebėti, kad “Pfizer” akcijų kainos nagrinėjamame laikotarpyje turėjo mažiausius svyravimus (mažiausios ir didžiausios reikšmės skiriasi apie 13 JAV dolerių). Labiausiai svyravo “Moderna” akcijų kainos (apie 92 JAV doleriais). Didžiausia imties vidutinė reikšmė yra „Johnson&Johnson“ akcijų kainos (170,1 JAV dolerių), mažiausia - “Pfizer” (47,61 JAV doleriai).

#4) Grafinė analizė

boxplot(Duomenys$Pfizer)

boxplot(Duomenys$Johnson)

boxplot(Duomenys$Moderna)

Pfizer_stock_prices <- Duomenys$Pfizer
hist(Pfizer_stock_prices)

JohnsonAndJohnson_stock_prices <- Duomenys$Johnson
hist(JohnsonAndJohnson_stock_prices)

Moderna_stock_prices <- Duomenys$Moderna
hist(Moderna_stock_prices)

#Pirmiausia pasirinkau pavaizduoti stačiakampę diagramą (boxplot), nes norėjau įsitikinti, ar duomenyse nėra išskirčių.Atlikusi grafinę analizę, galiu teigti, kad duomenyse išskirčių nėra. Taip pat nubraižiau kiekvieno kiekybinio kintamojo histogramas, kurios parodo duomenų pasiskirstymą. “Pfizer” histogramoje galima matyti, kad duomenys yra labiau susitelkę vienoje vietoje, o “Johnson&Johnson“ ir”Moderna” histogramose duomenys - plačiau pasiskirstę. “Pfizer” įmonės akcijų dažniausiai pasitaikančios kainos yra tarp 48 - 50 JAV dolerių, “Johnson&Johnson” - tarp 164 - 166 JAV dolerių, “Moderna” - tarp 170 - 180 JAV dolerių.

#———————————————————————————————————————————————————————

#5) IŠVADOS: Atlikus aprašomąją statistiką, paaiškėjo, kad mano nagrinėjamu laikotarpiu didžiausia akcijų kaina buvo įmonės “Moderna”, mažiausia - “Pfizer”. Tačiau “Pfizer” akcijų kainos svyravo mažiausiai (apie 13 JAV doelrių), o “Moderna” akcijų kainos - daugiausiai (apie 92 JAV doleriais). Po grafinės analizės paaiškėjo, kad išskirčių duomenyse nėra. Taip pat išanalizavus grafikus buvo išsiaiškinta, kad dažniausiai pasitaikančios akcijų kainos įmonėje “Pfizer” yra nuo 48 iki 50 JAV dolerių, “Johnson&Johnson” - nuo 164 iki 166 JAV dolerių, “Moderna” - nuo 170 iki 180 JAV dolerių.