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

t-student multiple fixes

Browse Source
This commit is contained in:
Jakub Adamski 2022-05-24 16:17:00 +02:00
parent a94a601c98
commit 92a76194f8
2 changed files with 28 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Projekt_1/T-student-multiple-paired.R
View File

@ -32,15 +32,23 @@ size <- length(Cisnienie)
#dane zwykłe #dane zwykłe
# funkcja wbudowana # funkcja wbudowana
t.test(Cisnienie$Po-Cisnienie$Przed,mu=0,alternative='less') #t.test(Cisnienie$Po-Cisnienie$Przed,mu=0,alternative='less')
#nasza funkcja #nasza funkcja
t.test_multiple_paried(Cisnienie$Po-Cisnienie$Przed,m0=0,alternative='less') #t.test_multiple_paried(Cisnienie$Po-Cisnienie$Przed,m0=0,alternative='less')
wyniki <- data.frame()
for (i in 1:10) {
bootstrappedData_Cisnienie <- ourBoot(Cisnienie$Po-Cisnienie$Przed, size, size)
ttest <- t.test_multiple_paried(bootstrappedData_Cisnienie,m0=0,alternative='less')
wyniki <- rbind(wyniki, ttest)
}
mean(wyniki$mean)
mean(wyniki$statistic)
mean(wyniki$p.value)
#dane zbootstrpowane
bootstrappedData_Cisnienie <- ourBoot(Cisnienie$Po-Cisnienie$Przed, 200, size)
# funkcja wbudowana # funkcja wbudowana
t.test(bootstrappedData_Cisnienie,mu=0,alternative='less') #t.test(bootstrappedData_Cisnienie,mu=0,alternative='less')
#nasza funkcja
t.test_multiple_paried(bootstrappedData_Cisnienie,m0=0,alternative='less')

23
Projekt_1/T-studnet-multiple.R → Projekt_1/T-student-multiple.R
View File

@ -26,21 +26,24 @@ attach(Bledy)
size_Bledy <- length(Bledy$Blad) size_Bledy <- length(Bledy$Blad)
bootstrappedData_Bledy_Blad <- ourBoot(Bledy$Blad, 200, size_Bledy)
bootstrappedData_Bledy_Kod <- ourBoot(Bledy$Kod, 200, size_Bledy)
wyniki <- data.frame()
for (i in 1:10){
bootstrappedData_Bledy_Blad <- ourBoot(Bledy$Blad, size_Bledy, size_Bledy)
bootstrappedData_Bledy_Kod <- ourBoot(Bledy$Kod, size_Bledy, size_Bledy)
ttest <- t.test_multiple(x=bootstrappedData_Bledy_Blad, y=bootstrappedData_Bledy_Kod, alternative='less')
wyniki <- rbind(wyniki, ttest)
}
mean(wyniki$mean1)
#dane zbootstrapowane mean(wyniki$mean2)
#funkcja wbudowana mean(wyniki$statistic)
t.test(x=bootstrappedData_Bledy_Blad, y=bootstrappedData_Bledy_Kod,var.equal=T,alternative='less') mean(wyniki$p.value)
# nasza funkcja
t.test_multiple(x=bootstrappedData_Bledy_Blad, y=bootstrappedData_Bledy_Kod, alternative='less')
#dane normalne #dane normalne
#funkcja wbudowana #funkcja wbudowana
t.test(x=Blad, y=Kod,var.equal=T,alternative='less') #t.test(x=Blad, y=Kod,var.equal=T,alternative='less')
# nasza funkcja # nasza funkcja
t.test_multiple(x=Blad, y=Kod, alternative='less') #t.test_multiple(x=Blad, y=Kod, alternative='less')