---
title: "Praca domowa"
author: "Bartosz Maćkiewicz"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

# Zadanie I

Kapp, Frysinger, Gallagher i Hazelton (1979) wykazali, że lezja ciała migdałowatego może zmniejszać niektóre reakcje łączone zazwyczaj ze strachem (np. obniżać tętno). Jeśli poziom strachu dałoby się rzeczywiście w ten sposób obniżać, to ze względu na ich obniżoną awersję do pewnych bodźców zwierzęta poddane lezji powinno być trudniej wyuczyć reakcji unikania.

Wyobraź sobie, że prowadzisz badania nad dwiema grupami królików: w jednej zwierzęta poddano lezji ciała migdałowatego, druga to grupa kontrolna ze zwierzętami, których nie poddawano żadnym zabiegom. Dane w pliku przedstawiają dla każdego zwierzęcia liczbę prób wyuczenia reakcji unikania (1 - grupa z lezją, 2 - grupa kontrolna).

1. Wczytaj dane do R.
2. Czy dane wspieraja hipotezę przedstawioną przez badaczy? Przeanalizuj je za pomocą odpowiedniego testu nieparametrycznego (test dwustronny).
3. Przeanalizuj dane za pomocą tego samego testu, tylko że w tym wypadku użyj testu jednostronnego zgodnego z hipotezą badawczą.
4. Przedstaw graficznie dane z zadania. Możesz stworzyć wykres używając biblioteki standardowej R lub pakietu `ggplot2`
5. W jaki sposób opisać wyniki takiego badania? Znajdź w internecie przykłady opisu wyników zastosowanego testu w standardzie APA i napisz (po polsku lub angielsku) odpowiedni paragraf.

```{r}
# Tutaj miejsce na Twój kod
```

*Tutaj miejsce na Twoją odpowiedź*

# Zadanie II

Mówi się, że pierwsze dziecko bywa zazwyczaj bardziej niezależne niż dzieci urodzone jako drugie lub kolejne. Załóżmy, że dysponujemy 25-stopniową skalą niezależności i oceniamy na niej każde z 20 pierworodnych dzieci wraz z ich bratem lub siostrą urodzonymi jako drugie dziecko w rodzinie. Pomiaru dokonujemy, gdy każde z rodzeństwa jest już dorosłe, eliminując tym samym oczywistą różnice wieku. Dane z tego eksperymentu znajdują sie w pliku.

```{r}
# Tutaj miejsce na Twój kod
```

1. Wczytaj dane do R.
2. Czy dane wspieraja hipotezę przedstawioną przez badaczy (że pierwsze dzieci są bardziej niezależne)? Przeanalizuj je za pomocą odpowiedniego testu nieparametrycznego.
3. Czy to, że możemy potraktować nasze dane jako próby zależne sprawia, że dochodzimy do innej konkluzji niż gdyby to były próby niezależne? Powtórz test z poprzedniego punktu z tą różnicą, że tym razem przyjmij, że obserwacji nie możesz połączyć w pary.
4. Intepretacja wyników nie jest jednak tak prosta, jak zdawałoby się to na pierwszy rzut oka. Stwórz wykres, w którym różnice w parach będą funkcją wyniku pierwszego dziecka. Do jakich wniosków prowadzi Cię ten wykres?
5. Przedstaw graficznie dane z zadania. Możesz stworzyć wykres używając biblioteki standardowej R lub pakietu `ggplot2`
6. W jaki sposób opisać wyniki takiego badania? Znajdź w internecie przykłady opisu wyników zastosowanego testu w standardzie APA i napisz (po polsku lub angielsku) odpowiedni paragraf.

*Tutaj miejsce na Twoją odpowiedź*

# Zadanie III

Trzech rywalizujących ze sobą nauczycieli angielskiego na podstawowym poziomie uważa, że to każdy z nich ma zaszczyt uczyć najlepszych uczniów. Żeby rozstrzygnąć, który z nich ma rację, zostało wylosowanych po ośmiu uczniów z każdej z ich klasy. Każdy uczeń dostał do rozwiązania ten sam egzamin, który oceniany był przez neutralnego nauczyciela niewiedzącego, z której klasy są oceniani przez niego uczniowie. Oto wyniki uczniów:

```{r}
# Tutaj miejsce na Twój kod
```

1. Wczytaj dane do R.
2. Czy kontrowersję między nauczycielami da się rozstrzygnąć na podstawie wyników tego eksperymentu? Przeprowadź odpowiedni test nieparametryczny.
3. Załóżmy, że przyjęliśmy prawdopodobieństwo błędu typu I $\alpha = 0.1$ i po przeprowadzeniu głównego testu postanowiliśmy sprawdzić za pomocą testu *post-hoc* którzy z nauczycieli różnią się od siebie. Przeprowadź odpowiedni test, aby to sprawdzić.
4. Przedstaw graficznie dane z zadania. Możesz stworzyć wykres używając biblioteki standardowej R lub pakietu `ggplot2`
5. W jaki sposób opisać wyniki takiego badania? Znajdź w internecie przykłady opisu wyników zastosowanego testu w standardzie APA i napisz (po polsku lub angielsku) odpowiedni paragraf.

*Tutaj miejsce na Twoją odpowiedź*

# Zadanie IV

Psycholog pracujący w poprawczaku potrzebuje wykazać, że poprawczak jest skuteczny w obniżaniu przestępczości. Wziął wiec próbę dziewieciu osób mieszkajacych z rodzicami (1 w pliku), których policja zindentyfikowała jako sprawiających problemy, dziewieciu podobnych osób z rodzin zastępczych (2 w pliku) oraz dziewięciu mieszkajacych w poprawczaku (3 w pliku). Jako wskaźnik redukcji przestępczości użył liczby dni, w ciągu których uczniowie opuścili zajęcia szkolne. Dane te mógł z łatwością uzyskać od administracji szkół.

1. Wczytaj dane do R.
2. Czy dane potwierdzają skuteczność poprawczaka? Przeanalizuj je za pomocą odpowiedniego testu nieparametrycznego. 
3. Przeprowadź odpowiedni test, aby to sprawdzić, czy występuje istotna statystycznei róznica między osobami mieszkającymi z rodzicami a tymi z poprawczaka.
4. Przedstaw graficznie dane z zadania. Możesz stworzyć wykres używając biblioteki standardowej R lub pakietu `ggplot2`
5. W jaki sposób opisać wyniki takiego badania? Znajdź w internecie przykłady opisu wyników zastosowanego testu w standardzie APA i napisz (po polsku lub angielsku) odpowiedni paragraf.

```{r}
# Tutaj miejsce na Twój kod
```

*Tutaj miejsce na Twoją odpowiedź*

# Zadanie V

W badaniu o skutkach zindywidualizowanej opieki nad młodzieżą z poważnymi problemami emocjonalnymi Burchard i Schaefer (1990) zaproponowali, aby opiekunowie oceniali obecność lub brak określonych zachowań dla każdego z 40 podopiecznych każdego dnia. Żeby sprawdzić wiarygodność sędziów, poprosili dwóch z nich, aby ocenili każdego z podpopiecznych. W pliku znajdują się dane dotyczące „skrajnie obelżywego języka".

```{r}
# Tutaj miejsce na Twój kod
```

1. Wczytaj dane do R. **UWAGA** Aby użyć funkcji z pakietu `irr` niezbędne będzie dokonanie odpowiedniej konwersji danych. Odpowiednie informacje można znaleźć tutaj:
http://www.cookbook-r.com/Manipulating_data/Converting_between_data_frames_and_contingency_tables/
2. Oblicz procentową zgodę między sędziami kompetentnymi.
3. Oblicz Kappę Cohena. Jak dużo mniejsza jest tak obliczona zgoda od zgody obliczonej w poprzednim punkcie?
4. W jaki sposób opisać wyniki tego eksperymentu? Znajdź w internecie przykłady opisu wyników zastosowanego testu i napisz (po polsku lub angielsku) odpowiedni paragraf.

*Tutaj miejsce na Twoją odpowiedź*

# Zadanie VI

Hout, Duncan i Sobel (1987) przedstawiają dane dotyczące relatywnej satysfakcji seksualnej małżeństw. Poprosili osobno każdego z małżonków spośród 91 badanych par o ocenę tego, w jakim stopniu zgadzają się ze stwierdzeniem „Seks jest zawsze przyjemnością dla mnie i mojego partnera" na czerostopniowej skali od "nigdy lub prawie nigdy" do "prawie zawsze". Dane w pliku przedstawiaja liczbę poszczególnych wzorców odpowiedzi w formacie (`odpowiedź męża - odpowiedź żony - liczba takich kombinacji`).

1. Wczytaj dane do R. **UWAGA** Aby użyć odpowiedniej funkcji niezbędne będzie dokonanie odpowiedniej konwersji danych. Odpowiednie informacje można znaleźć tutaj tutaj:
http://www.cookbook-r.com/Manipulating_data/Converting_between_data_frames_and_contingency_tables/
2. Co możemy powiedzieć o różnicach w satysfakcji seksualnej między kobietami i mężczyznami na podstawie tych danych?
3. Czy umiesz wymyślić jakiś ciekawy graficzny sposob przedstawienia wyników tego eksperymentu? Jeżeli tak - to zrób to! [ja nie umiem - B.M.]
4. W jaki sposób opisać wyniki tego eksperymentu? Znajdź w internecie przykłady opisu wyników zastosowanego testu i napisz (po polsku lub angielsku) odpowiedni paragraf.

```{r}
# Tutaj miejsce na Twój kod
```

*Tutaj miejsce na Twoją odpowiedź*