Zadania w Rstudio - statystyka

[coliber00]

Witam. Mam problem z następującymi zadaniami, które muszę wykonać w Rstudio:

1. Czy średnia sprzedaż fotelików na terenie USA jest istotnie wyższa niż poza USA? Zweryfikuj odpowiednią hipotezę na poziomie istotności 0,05.

2. 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