s444455/Matma_AI_cyber
1
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

init projekt1 fix

Browse Source
This commit is contained in:
Jakub Adamski 2022-05-23 13:46:09 +02:00
parent 68c8eb5e04
commit a94a601c98
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Projekt_1/T-student-single.R
View File

@ -20,14 +20,19 @@ attach(Hamulce)
size_Hamulce <- length(Hamulce$Wynik)
bootstrappedData_Wynik <- ourBoot(Hamulce$Wynik, 200, size_Hamulce)
# funkcja wbudowana
t.test(bootstrappedData_Wynik,mu=18.6,alternative='less')
# nasza funkcja
t.test_single(bootstrappedData_Wynik, m=18.6, alternative='less')
#Z bootstrapem
wyniki <- data.frame()
for (i in 1:10) {
bootstrappedData_Wynik <- ourBoot(Hamulce$Wynik, size_Hamulce, size_Hamulce)
# nasza funkcja
ttest <- t.test_single(bootstrappedData_Wynik, m=18.6, alternative='less')
wyniki <- rbind(wyniki, ttest)
}
mean(wyniki$mean)
mean(wyniki$statistic)
mean(wyniki$p.value)
#Bez bootstrapa
# funkcja wbudowana
t.test(Wynik,mu=18.6,alternative='less')
# nasza funkcja