diff --git a/Projekt_1/Bledy.RData b/Projekt_1/Bledy.RData new file mode 100644 index 0000000..d9cecc7 Binary files /dev/null and b/Projekt_1/Bledy.RData differ diff --git a/Projekt_1/Cisnienie.RData b/Projekt_1/Cisnienie.RData new file mode 100644 index 0000000..275a550 Binary files /dev/null and b/Projekt_1/Cisnienie.RData differ diff --git a/Projekt_1/Hamulce.RData b/Projekt_1/Hamulce.RData new file mode 100644 index 0000000..183ec31 Binary files /dev/null and b/Projekt_1/Hamulce.RData differ diff --git a/Projekt_1/Projekt_1.R b/Projekt_1/Projekt_1.R new file mode 100644 index 0000000..5984704 --- /dev/null +++ b/Projekt_1/Projekt_1.R @@ -0,0 +1,22 @@ +#test t-studenta dla jednej próby +load("Hamulce.RData") +attach(Hamulce) +mean(Wynik) +t.test(Wynik,mu=18.6,alternative='less') + +# dwie próby niezależne +load("Bledy.RData") +attach(Bledy) +tapply(Blad,Kod,mean) +tapply(Blad,Kod,var) +var.test(Blad~Kod) +t.test(Blad~Kod,var.equal=T,alternative='less') + +#dwie próby zależne +load("Cisnienie.RData") +attach(Cisnienie) +mean(Po-Przed) +t.test(Po-Przed,mu=0,alternative='less') + +#TODO +# trzeba narysować rozkład statystyki testowej diff --git a/Projekt_1/Projekt_1.Rproj b/Projekt_1/Projekt_1.Rproj new file mode 100644 index 0000000..8e3c2eb --- /dev/null +++ b/Projekt_1/Projekt_1.Rproj @@ -0,0 +1,13 @@ +Version: 1.0 + +RestoreWorkspace: Default +SaveWorkspace: Default +AlwaysSaveHistory: Default + +EnableCodeIndexing: Yes +UseSpacesForTab: Yes +NumSpacesForTab: 2 +Encoding: UTF-8 + +RnwWeave: Sweave +LaTeX: pdfLaTeX