s444341/Statystyka
2
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixes

Browse Source
This commit is contained in:
Jakub Adamski 2021-06-22 21:14:59 +02:00
parent 1c575b8ecb
commit 3de8ab507f
3 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
egzamin/egzamin.Rproj Normal file
View File

@ -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

1
egzamin/zadania.R Normal file
View File

@ -0,0 +1 @@
# zad

8
podsumowanie/README.md
View File

@ -162,7 +162,7 @@ barplot(counts,
main = "Rozklady empiryczny i teoretyczny liczby zgloszen", main = "Rozklady empiryczny i teoretyczny liczby zgloszen",
col = c("red", "blue"), legend = rownames(counts), beside = TRUE) col = c("red", "blue"), legend = rownames(counts), beside = TRUE)
#kwanty-kwantyl, linia to moj estymator #kwanty-kwantyl
qqplot(rpois(length(Centrala$Liczba), lambda = lambda_est), Centrala$Liczba, qqplot(rpois(length(Centrala$Liczba), lambda = lambda_est), Centrala$Liczba,
xlab = "Kwantyle teoretyczne", ylab = "Kwantyle empiryczne", xlab = "Kwantyle teoretyczne", ylab = "Kwantyle empiryczne",
main = "Wykres kwantyl-kwantyl dla liczby zgloszen") main = "Wykres kwantyl-kwantyl dla liczby zgloszen")
@ -374,6 +374,12 @@ qqline(y)
var(x) var(x)
var(y) var(y)
var.test(x, y, alternative = "less")$p.value var.test(x, y, alternative = "less")$p.value
#test t-studenta dla jednej próby
load("Hamulce.RData")
attach(Hamulce)
mean(Wynik)
t.test(Wynik,mu=18.6,alternative='less')
``` ```