code cleanup

This commit is contained in:
Jakub Adamski 2022-05-10 17:26:35 +02:00
parent 8b9722c606
commit 68c8eb5e04
4 changed files with 7 additions and 12 deletions

View File

@ -16,10 +16,11 @@ ourBoot <- function(data, outSize, sampleSize) {
bootstrappedData <- ourBoot(Wynik, 200, 50) bootstrappedData <- ourBoot(Wynik, 200, 50)
par(mfrow=c(1,2)) par(mfrow=c(1,2))
hist(Wynik,prob=T,main='') hist(Wynik,prob=T,main='normal')
hist(bootstrappedData,prob=T,main='') hist(bootstrappedData,prob=T,main='bootstrapped')
par(mfrow=c(1,2))
boxplot(Wynik,prob=T,main='normal')
boxplot(bootstrappedData,prob=T,main='bootstrapped')

View File

@ -17,7 +17,7 @@ t.test_multiple_paried <- function(x, m0=0, alternative = "two.sided") {
pt(q=statistic, df=length(x)-1, lower.tail = FALSE) pt(q=statistic, df=length(x)-1, lower.tail = FALSE)
} }
value <- list(mean = M, m0 = m0, statistic = statistic, p.value = p, alternative = alternative) value <- list(mean = M, m0 = m0, df=length(x)-1, statistic = statistic, p.value = p, alternative = alternative)
return(value) return(value)
} }
@ -30,14 +30,12 @@ mean(Po-Przed)
#t.test(Po-Przed,mu=0,alternative='less') #t.test(Po-Przed,mu=0,alternative='less')
size <- length(Cisnienie) size <- length(Cisnienie)
#jest git
#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')
# jest różnica w p-wartości!!!
#dane zbootstrpowane #dane zbootstrpowane
bootstrappedData_Cisnienie <- ourBoot(Cisnienie$Po-Cisnienie$Przed, 200, size) bootstrappedData_Cisnienie <- ourBoot(Cisnienie$Po-Cisnienie$Przed, 200, size)
# funkcja wbudowana # funkcja wbudowana

View File

@ -22,14 +22,12 @@ size_Hamulce <- length(Hamulce$Wynik)
bootstrappedData_Wynik <- ourBoot(Hamulce$Wynik, 200, size_Hamulce) bootstrappedData_Wynik <- ourBoot(Hamulce$Wynik, 200, size_Hamulce)
# p-wartość jest inna
# funkcja wbudowana # funkcja wbudowana
t.test(bootstrappedData_Wynik,mu=18.6,alternative='less') t.test(bootstrappedData_Wynik,mu=18.6,alternative='less')
# nasza funkcja # nasza funkcja
t.test_single(bootstrappedData_Wynik, m=18.6, alternative='less') t.test_single(bootstrappedData_Wynik, m=18.6, alternative='less')
#jest git
# funkcja wbudowana # funkcja wbudowana
t.test(Wynik,mu=18.6,alternative='less') t.test(Wynik,mu=18.6,alternative='less')
# nasza funkcja # nasza funkcja

View File

@ -1,5 +1,3 @@
#jest git
t.test_multiple <- function(x, y, m0=0, alternative = "two.sided") { t.test_multiple <- function(x, y, m0=0, alternative = "two.sided") {
M1 <- mean(x) M1 <- mean(x)
M2 <- mean(y) M2 <- mean(y)