#Pasirinkau nagrinėti trijų įmonių – „Pfizer“, „Johnson&Johnson“, „Moderna“ – akcijų kainas. Šios įmonės yra susijusios tuo, kad 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")

#Aprašomosios statistikos

summary(Duomenys)
##      Data               Pfizer         Johnson         Moderna     
##  Length:130         Min.   :41.75   Min.   :160.2   Min.   :118.1  
##  Class :character   1st Qu.:44.97   1st Qu.:165.4   1st Qu.:136.8  
##  Mode  :character   Median :47.43   Median :170.0   Median :169.8  
##                     Mean   :47.38   Mean   :170.3   Mean   :161.4  
##                     3rd Qu.:49.70   3rd Qu.:175.6   3rd Qu.:181.6  
##                     Max.   :54.48   Max.   :180.2   Max.   :210.0

#Mano analizuojamas laikotarpis susideda iš 130 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 doleriai). Didžiausia imties vidutinė reikšmė yra „Johnson&Johnson“ akcijų kainos (170,3 JAV dolerių), mažiausia - “Pfizer” (47,38 JAV doleriai).

#Grafinė analizė.

#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.

boxplot(Duomenys$Pfizer)

boxplot(Duomenys$Johnson)

boxplot(Duomenys$Moderna)

#Taip pat nubraižiau kiekvieno kiekybinio kintamojo histogramas, kurios parodo duomenų pasiskirstymą. “Pfizer” histogramoje galima matyti, kad duomenys yra labiau susitelkę vienoje vietoje. “Johnson&Johnson“ ir”Moderna” histogramose duomenys yra labiau pasiskirstę.

hist(Duomenys$Pfizer)

hist(Duomenys$Johnson)

hist(Duomenys$Moderna)