code cleanup

Projekt_1/Bootstrapping.R

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

Projekt_1/T-student-multiple-paired.R

@@ -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)
   }
   
-  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)
 } 
 
@@ -30,14 +30,12 @@ mean(Po-Przed)
 #t.test(Po-Przed,mu=0,alternative='less')
 size <- length(Cisnienie)
 
-#jest git
 #dane zwykłe 
 # funkcja wbudowana
 t.test(Cisnienie$Po-Cisnienie$Przed,mu=0,alternative='less')
 #nasza funkcja
 t.test_multiple_paried(Cisnienie$Po-Cisnienie$Przed,m0=0,alternative='less')
 
-# jest różnica w p-wartości!!!
 #dane zbootstrpowane
 bootstrappedData_Cisnienie <- ourBoot(Cisnienie$Po-Cisnienie$Przed, 200, size)
 # funkcja wbudowana

Projekt_1/T-student-single.R

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

Projekt_1/T-studnet-multiple.R

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