Witam. Mam problem z następującymi zadaniami, które muszę wykonać w Rstudio:
-
Czy średnia sprzedaż fotelików na terenie USA jest istotnie wyższa niż poza USA? Zweryfikuj odpowiednią hipotezę na poziomie istotności 0,05.
-
Czy średni poziom dochodów (Income) nie przekracza 90 tys. dolarów? Zweryfikuj odpowiednią hipotezę na poziomie istotności 0,05
#Zad 1
outUSA <- Carseats$Sales[Carseats$US=='No']
inUSA <- Carseats$Sales[Carseats$US=='Yes']
#alpha=0.05
#H0: outUSA = inUSA
#H1: outUSA < inUSA
install.packages('TeachingDemos')
library(TeachingDemos)
t.test(inUSA, outUSA, alt='g', conf.level = 0.95)
# p-value = 0.0001292 < alpha=0.05 >>> odrzucamy H0, przyjmujemy H1
# Odp. Wychodzi na to, że sprzedaż fotelików na terenie USA jest istotnie większa niż
# sprzedaż poza USA
#Zad 2
income <- Carseats$Income
#H0: meanincome = 90
#H1: meanincome < 90
t.test(income, mu=90, alt='l')
#p-value < 2.2e-16
Czy używam odpowiednich do tych zadań testów? W przypadku zadania 1. p-value ma wartość nazwijmy to nie rażącą oka, ale w 2. wypadku już taką ma.
Gdzie popełniam błąd?
Dziękuję za pomoc i pozdrawiam :)