Tikimybių teorija ir statistika. 1 laboratorinio darbo ataskaita

_____________________________________________________________________________

2

_____________________________________________________________________________

3

DARBO TIKSLAS

Ugdyti gebėjimus taikyti teorinias staistikos žinias praktikoje, programuoti statistikos

uždavinius panaudojant R programavimo kalbą, atlikti tiriamąją duomenų analizę, tikrinti

hipotezes, apskaičiuoti parametrų pasikliautinuosius intervalus, interpretuoti gautus rezultatus ,

formuluoti išvadas rengti ataskaitas.

1. UŽDUOTIS

1.1. R PROGRAMOS KODAS

setwd("C:/rdata")

variantas = 4 #nurodomas variantas (įrašykite savo varianto numerį) data =

read.csv("spotify_data.csv") #nuskaitomi duomenys

varianto_kintamasis=variantas%%10+1 print(paste("Jusu varianto kintamojo vardas yra:

", colnames(data)[varianto_kintamasis]))

varianto_duomenys=data[((variantas-1)*100+1):(variantas*100),varianto_kintamasis]

varianto_duomenys #spausdina varianto duomenis

_____________________________________________________________________________

4

Aprašykite savo varianto kintamąjį, ką jis reprezentuoja tyrime.

Mano kintamasis „Instrumentalmess“ numato ar muzikiniame takelyje nėra vokalo. „ooh“ ir

„ahh“garsaišiame kontekste traktuojami kaip intrumentalas. Kuo didesnė šio kintamojo reikšmė,

tuo didesnė tikimybė, kad takelyje nėra vokalo.

1.2 Raskite skaitines imties charakteristikas: imties dydį, minimumą, maksimumą, imties

plotį, kvartilius, kvartilių skirtumą (IQR), empirinį vidurkį, (nepaslinktąją) dispersiją,

(nepaslinktąjį) standartinį nuokrypį. Charakteristikas interpretuotike.

Programos kodas:

length(varianto_duomenys)

min(varianto_duomenys)

max(varianto_duomenys)

diff(range(varianto_duomenys))

quantile(varianto_duomenys, c(0.25, 0.5, 0.75), type = 2)

KS <- IQR(varianto_duomenys)

KS

mean(varianto_duomenys)

disp<-

function(varianto_duomenys){var(varianto_duomenys)*(length(varianto_duomenys)-

_____________________________________________________________________________

5

1)/length(varianto_duomenys)} disp(varianto_duomenys)

standartas <- sqrt(disp(varianto_duomenys))

standartas

1.3 Nubraižykite histogramą ir stačiakampę diagramą. Pakomentuokite grafinį vaizdą. Programos

kodas:

hist(varianto_duomenys, col = blues9, main = "Histograma")

boxplot(varianto_duomenys, main = "Stačiakampė diagrama")

_____________________________________________________________________________

6

Abejose diagramose matome, kad kintamųju daugiausiai turime mažų, tai yra arčiau 0.

1.4 Pagal gautus grafikus, parinkite vieną iš trijų tolydžiųjų skirstinių (normalųjį, eksponentinį arba

tolygųjį), kuris galėtų geriausiai tikti duotiesiems duomenims. Kuo remiantis parinkote konkretų

skirstinį?

Tai būtų dešiniosios asimetrijos skirstinys, nes kairysis histogramos „sparnas“ yra trumpesnis nei

dešinysis.

Remiausi aukščiau pateiktais grafikais.

1.5 Raskite kintamojo skirstinio parametrų taškinius įverčius. Parašykite išvadą. Progamos

kodas:

miu=mean(varianto_duomenys) miu

n=length(varianto_duomenys) sigma=((n-

1)/n)*var(varianto_duomenys) sigma

_____________________________________________________________________________

7

1.6 Suformuluokite ir patikrinkite atitinkamą suderinamumo hipotezę (reikšmingumo lygmenį

pasirinkite patys). Jei duomenys suderinami su pasirinktu skirstiniu, užrašykite nagrinėjamo

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!