t-student multiple fixes
This commit is contained in:
parent
a94a601c98
commit
92a76194f8
@ -32,15 +32,23 @@ size <- length(Cisnienie)
|
||||
|
||||
#dane zwykłe
|
||||
# funkcja wbudowana
|
||||
t.test(Cisnienie$Po-Cisnienie$Przed,mu=0,alternative='less')
|
||||
#t.test(Cisnienie$Po-Cisnienie$Przed,mu=0,alternative='less')
|
||||
#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
|
||||
t.test(bootstrappedData_Cisnienie,mu=0,alternative='less')
|
||||
#nasza funkcja
|
||||
t.test_multiple_paried(bootstrappedData_Cisnienie,m0=0,alternative='less')
|
||||
#t.test(bootstrappedData_Cisnienie,mu=0,alternative='less')
|
||||
|
||||
|
||||
|
||||
|
@ -26,21 +26,24 @@ attach(Bledy)
|
||||
|
||||
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)
|
||||
}
|
||||
|
||||
|
||||
#dane zbootstrapowane
|
||||
#funkcja wbudowana
|
||||
t.test(x=bootstrappedData_Bledy_Blad, y=bootstrappedData_Bledy_Kod,var.equal=T,alternative='less')
|
||||
# nasza funkcja
|
||||
t.test_multiple(x=bootstrappedData_Bledy_Blad, y=bootstrappedData_Bledy_Kod, alternative='less')
|
||||
mean(wyniki$mean1)
|
||||
mean(wyniki$mean2)
|
||||
mean(wyniki$statistic)
|
||||
mean(wyniki$p.value)
|
||||
|
||||
#dane normalne
|
||||
#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
|
||||
t.test_multiple(x=Blad, y=Kod, alternative='less')
|
||||
#t.test_multiple(x=Blad, y=Kod, alternative='less')
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user