[R] statystyka testowa

Serphis
Użytkownik
Użytkownik
Posty: 77
Rejestracja: 17 wrz 2009, o 20:54
Płeć: Mężczyzna
Lokalizacja: Piotrków
Podziękował: 4 razy
Pomógł: 2 razy

[R] statystyka testowa

Post autor: Serphis »

Oczekuje się, że średnia miesięczna sprzedaż w sklepach należących do pewnej sieci
powinna przekraczać 10 tys. zł, aby ta sieć nie przynosiła strat. Zbadano losową próbę 64 sklepów
należących do danej sieci, uzyskując średnią miesięczną sprzedaż równą 12 tys. zł, przy odchyleniu
standardowym 5 tys. zł. Czy na tej podstawie można sądzić, że średnia miesięczna sprzedaż w
sklepach danej sieci spełnia postawione oczekiwania? Zweryfikować postawioną hipotezę,
przyjmując poziom istotności 0,05.

Kod: Zaznacz cały

##Zadanie 6

##mamy dane
##srednia
Sre=10000
##Odchylenie standardowe 
Odchy=5000
##liczba prob
n=64
##Poziom istotnosci to 0.05

##liczymy kwantyl ktory ma parametry
##0.025  -1/2 poziomu istotnosci alfa
##0,1 to parametry rozkladu normalnego

kw=qnorm(0.025,0,1)
kwdod=kw*(-1)

paste('zbior krytyczny to -nieskonczonosc',kw,';',kwdod,'nieskonczonosc')
##liczymy wariancje potrzebna do rozkladu
war=Odchy^2
##tworzymy rozklad normalny
dane=pnorm(64,Sre,war)
##Uzywamy testu statystycznego
Te=((Sre-mean(dane))/Odchy)*sqrt(n)
paste('Nasza statystyka ma wartosc',Te)

##Statystyka nalezy do zbioru krytycznego zatem mozemy odrzucic hipoteze H
Wiem, że zbiór krytyczny nie powinien tu być obustronny, jednak mam problem z konstruowaniem innych, proszę o porade jak to zrobić i sprawdzenie zadania
ODPOWIEDZ