/
experimental-design-samplesize.qmd
334 lines (233 loc) · 23.9 KB
/
experimental-design-samplesize.qmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
```{r echo = FALSE}
pacman::p_load(tidyverse, readxl, knitr, kableExtra)
```
# Fallzahlplanung
*Letzte Änderung am `r format(fs::file_info("experimental-design-samplesize.qmd")$modification_time, '%d. %B %Y um %H:%M:%S')`*
> *"Ich liebe es wenn ein Plan funktioniert." --- Colonel John 'Hannibal' Smith, Das A-Team*
::: callout-important
## Disclaimer - Wichtig! Lesen!
Der folgende Text ist ein *Lehr*text für Studierende. Es handelt sich keinesfalls um eine textliche Beratung für Ethikanträge oder Tierversuchsanträge. Alle Beispiel sind im Zweifel an den Haaren herbeigezogen und dienen nur der Veranschaulichung *möglicher* Sachverhalte.
Antragsteller:innen ist die statistische Beratung von einer entsprechenden Institution dringlichst angeraten.
:::
In diesem Kapitel wollen wir uns mit der Fallzahlplanung beschäftigen. Eigentlich stimmt das Wort Planung überhaupt nicht. Wir machen hier eine Fallzahl*abschätzung*. Es geht hier darum, anhand von Werten aus der Literatur für dein eigenen Experiment die nötige Anzahl an Beobachtungen abzuschätzen. Nun ist es so, dass die Berechnung der benötigten Fallzahl in klinischen Studien oder aber Tierversuchsvorhaben *vor* dem Beginn des Versuchs durchgeführt werden muss. Es gibt in diesem Zusammenhang das Tierversuchsvorhaben im Falle von Tieren und den Ethikantrag im einer klinischen Studie. Beide Anträge werden faktisch bei einer Behörde gestellt und haben einen regulativen Charakter. Wir machen hier aber kein Jura. Deshalb hat dieses Kapitel auch keinen beratenden Charakter.
Wenn du an einer Institution arbeitest oder forscht, die einen Ethikantrag stellen oder einen Tierversuchsantrag einreichen will, wende dich an deine Vertrauensperson. Es muss jemanden bei dir geben, der für solche Anträge zuständig ist. Dieses Kapitel und ich sind es ausdrücklich nicht.
Eine weitere Besonderheit ist noch eine Studie, die Überprüfen soll, ob der versuch überhaupt *machbar* ist. Der versuch soll die Machbarkeit (eng. *feasibility*) testen. In diesem Fall brauchen wir keine Fallzahlberechnung. Wir testen ja eine sehr kleine Fallzahl, weil es uns um die *technische* Umsetzbarkeit des Versuches geht. Erst wenn wir wissen, dass wir den Versuch auch technisch durchführen können, machen wir dann eine statistische Fallzahlplanung.
::: callout-tip
## Weitere Literatur zur Fallzahlplanung
- Es gibt *DIE* Übersicht für die Fallzahlberechnung in R von Dr. Mark Williamson in seinem Tutorial [Sample Size Calculation with R](https://med.und.edu/daccota/_files/pdfs/berdc_resource_pdfs/sample_size_r_module.pdf).
:::
## Theoretischer Hintergrund
Manchmal hat man das Gefühl, dass Fallzahlplanung nur ein wildes Gerate ist. Das ist aus der Perspektive eines biologischen Fachlaien auch der Fall. Ich kenne mich sehr wenig in der vielen biologischen Feldern aus. Daher weiß ich wenig darüber was ein großer Effekt ist oder welchen Effekt du überhaupt in deinem Kartoffelexperiment erwarten kannst. Auch ist mir unklar was typische Mittelwertsunterschiede bei Wasserlinsen sind. Du musst so was aber wissen, es ist ja schließlich dein Experiment. Wenn du also eine Fallzahlplanung durchführen willst, dann heißt es zuerst einmal Literatur wälzen oder mit den Fachkollegen sprechen.
Wir kennen ja schon die Formel für den t-Test. Der t-Test vergleicht die Mittelwerte von zwei normalverteilten Outcomes und gewichtet diesen Mittelwertsunterschied bei der Standardabweichung. Da wir in der Formel des t-Tests auch die Fallzahl inkludiert haben, können wir die Formel nach der Fallzahl umstellen.
$$
T = \cfrac{\Delta}{s_p \cdot \sqrt{\cfrac{2}{n_g}}}
$$
Dabei nutzen wir die Teststatistik etwas anders. Wir zerlegen die Teststatistik $T$ für in den Wert für den $\alpha$-Fehler und den $\beta$-Fehler. Damit können wir auch die Power $1-\beta$ mit in unserer Formel berücksichtigen.
$$
n_g = \cfrac{2\cdot(T_{\alpha = 5\%} + T_{\beta = 20\%})^2}{\left(\cfrac{\Delta}{s_p}\right)^2}
$$
Dabei nutzen wir für $T_{\alpha = 5\%} = 1.96$ und $T_{\beta = 20\%} = 0.84$ und vereinfachen damit die Formel ziemlich. Eigentlich nutzen wir diese Formel dann in der der Klausur oder aber um wirklich mal eben schnell zu schauen, was wir für eine Fallzahl erwarten.
Jetzt könntest du meinen, dass wir jetzt mit verschiedenen Powerleveln spielen könnten. Aber das ist leider nicht der Fall. Wir sind eigentlich ziemlich auf 80% festgelegt. Da gibt es im Rahmen eines Antrags keinen Spielraum. Wir nehmen immer eine Power von 80% an.
::: callout-note
## Einseitig oder zweiseitig im Spiegel der Regulierungsbehörden
In den [allgemeinen Methoden des IQWiG](https://www.iqwig.de/ueber-uns/methoden/methodenpapier/), einer Regulierungsbehörde für klinische Studien, wird grundsätzlich das zweiseitige Testen empfohlen. Wenn einseitig getestet werden sollte, so soll das $\alpha$-Niveau halbiert werden. Was wiederum das gleiche wäre wie zweiseitiges Testen - nur mit mehr Arbeit.
*Zur besseren Vergleichbarkeit mit 2-seitigen statistischen Verfahren wird in einigen Guidelines für klinische Studien eine Halbierung des üblichen Signifikanzniveaus von 5 % auf 2,5 % gefordert.* -- [Allgemeine Methoden Version 6.1 vom 24.01.2022, p. 180](https://www.iqwig.de/methoden/allgemeine-methoden-v6-1.pdf)
Fazit des Dokumentes ist dann aber, dass wir immmer zu einem Signifikanzniveau $\alpha$ von 5% und einer Power von 80% testen.
:::
## Tierversuchsantrag
Wenn du einen Tierversuch durchführen willst, dann bist du natürlich hier falsch. Ich kann dir bei dem Ausfüllen von Dokumenten nicht helfen. Was ich aber kann, ist dir einen Überblick über die Inhalte zu geben, so dass du dann nochmal informiert an anderer Stelle Fragen stellen kanst. Schaue gerne einmal mein Video auf YouTube mit dem Kontext zum Tierversuchsvorhaben. Eine wunderbare Übersicht über den Tierversuchsantrag liefert auch @piper2022stat.
::: callout-tip
## Einführung in den Kontext zu Tierversuchsvorhaben per Video
Du findest auf YouTube [Kontext zu Tierversuchsvorhaben](https://youtu.be/CQQEXiYASUk) als Video Reihe. Es handelt sich hierbei um ein reines *Lehr*video mit keinem beratenden Anspruch.
:::
In dem Video habe ich dann alles anhand des [Tierversuchsvorhaben am LaGeSo](https://www.berlin.de/lageso/gesundheit/veterinaerwesen/tierschutz/versuchsvorhaben/) in Berlin besprochen. Das hatte den Grund, dass ich zur Zeit des Videos an der Charité beschäftigt war. Da bei einem Tierversuchsantrag jeweils die Bundesländer zuständig sind, musst du bei deiner jeweiligen Ladesbehörde einmal schauen. In Niedersachsen musst du dir die Wenseite zu [Tierversuche vom Laves](https://www.laves.niedersachsen.de/startseite/tiere/tierschutz/tierversuche/tierversuche-73708.html) anschauen. Hier findest du dann *andere* Dokumente und Ausfüllhilfen. Wenn man als Wissenschaftler viel wechselt, wird man leicht wirr.
## Ethikantrag
Eben hatten wir uns kurz den Antrag für ein Tierversuchsvorhaben angeschaut. Richtig kompliziert wird es, wenn wir nicht mit Tieren arbeiten sondern Versuche am Menschen durchführen. Ein versuch am Menschen beinhaltet schon das Ausfüllen eines Fragebogens! Daher kannst du auch schnell in die Situation kommen, dass es eventuell eine ethische Komplikation gibt. Ich habe die Inhalte im Kontext einer klinischen Studie einmal in einem YouTube Video dargestellt und allgemein eingeordnet.
::: callout-tip
## Einführung in den Kontext zum Ethikantrag per Video
Du findest auf YouTube [Kontext zum Ethikantrag](https://youtu.be/LZdCl0Xonvw) als Video Reihe. Es handelt sich hierbei um ein reines *Lehr*video mit keinem beratenden Anspruch.
:::
Da ich in meiner Lehre die klinischen Studie nur am Horizont sehe, gibt es hier auch keine weiteren Links zu dem Thema. In dem Video siehst du noch ein paar öffentliche Quellen. Da es sich aber bei einem Ethikantrag meist um einen internen Prozess einer Universitätsklinik handelt, sind die (aktuellen) Dokumente meist nicht öffentlich zugänglich. Im Zweifel bitte an die zuständigen Gremien an deiner Institution wenden.
## Genutzte R Pakete
Wir wollen folgende R Pakete in diesem Kapitel nutzen.
```{r echo = TRUE}
#| message: false
pacman::p_load(tidyverse, magrittr, pwr, readxl, see,
effectsize, conflicted)
```
An der Seite des Kapitels findest du den Link *Quellcode anzeigen*, über den du Zugang zum gesamten R-Code dieses Kapitels erhältst.
## Mittelwertsvergleich für zwei Gruppen in R
Da wir ja nur die Formel des t-Tests für die Fallzahlberechnung haben, können wir auch immer nur die Fallzahl für den Vergleich zwischen zwei Gruppen rechnen. Das ist immer erstmal wieder ungewohnt. Aber wir machen das jetzt erstmal nur für zwei Gruppen. Später schauen wir uns an, ws passiert, wenn wir mehr Gruppen miteinander vergleichen wollen. Prinzipiell ist der Kern aber immer ein Zweigruppenvergleich, den wir dann etwas anders Aufbauen.
[Wenn du für einen Wilcoxon-Test oder einen anderen nicht-parametrischen Test die Fallzahlplanung machen willst, rechne bitte einen t-Test und addiere $+15\%$ an Fallzahl drauf.]{.aside}
Für die Berechnung der Fallzahl wollen wir das R Paket `{pwr}` nutzen. Wir brauchen in diesem Kapitel nur drei Funktion aus dem Paket, aber es gibt auch weit aus mehr. Im Zweifel einfach einmal die Hilfeseite aufrufen und schauen was es dort noch so gibt.
Wir können mit der Funktion `pwr.t.test()` die Fallzahl für die Effektstärke nach Cohen's $d$ berechnen. Mehr über Cohen's $d$ kannst du im @sec-effect erfahren. Wir nutzen hier eine relativ harte Abschätzung. Aber hier wird sowieso alles abgeschätzt, da kommt es jetzt auf künstliche Genauigkeit nicht mehr an. Wir berechnen also Cohen's $d$ *vereinfacht* für die Fallzahlberechnung wie folgt.
$$
d = \cfrac{\Delta}{s_{\Delta}}
$$
mit
- $\Delta$ als den zu erwartenden Mittelwertsunterschied zwischen den beiden Gruppen. Wir haben den Wert aus der Literatur entnommen.
- $s_{\Delta}$ als der Standardabweichung des Mittelwertsunterschieds. Wir können hier als Vereinfachung mit der Spannweite der Daten mit $\frac{range}{4}$ als Schätzer für die Standardabweichung rechnen. Ebenfalls haben wir die Werte aus einer Literaturquelle.
Es gäbe auch die Möglichkeit über die Funktion `cohen.ES()` die Effekte für verschiedene statistische Tests sich wiedergeben zu lassen, wenn wir definieren, wie stark der Effekt zwischen den Gruppen sein soll. Es steht zur Auswahl *small*, *medium* und *large*. Wir erkennen, dass ist nicht gerade viel Abstufung.
```{r}
cohen.ES(test = "t", size="medium") |>
pluck("effect.size")
```
Die Fallzahlberechnung geht recht einfach. Wir setzen die Option `n =` auf `NULL`, so dass uns die Funktion diese Option berechnet. Wir kriegen also die Fallzahl gegeben von dem Signifikanzniveau, der Power und der Effektstärke wieder. Dann geben wir noch an, dass wir zweiseitig testen. Also eigentlich alles fix, da können wir selber zwar was ändern, aber am Ende wird meist nur die Standardwerte von Dritten akzeptiert.
```{r}
res_ttest <- pwr.t.test(n = NULL,
sig.level = 0.05,
type = "two.sample",
alternative = "two.sided",
power = 0.80,
d = 0.8)
res_ttest
```
Bitte immer Aufrunden. Wir brauchen also $n_1 = n_2 = 26$ Beobachtungen *je* Gruppe, so dass wir für $32$ beobachtungen unseren Versuch planen können. In @fig-samplesize-1 sehen die Power abhängig von der verwendeten Fallzahl. Wir sehen, dass wir mit mehr Fallzahl eine höhere Power erhalten würden, aber wir schon sehr nah an der Sättigung sind.
```{r}
#| message: false
#| warning: false
#| echo: true
#| fig-align: center
#| fig-height: 4
#| fig-width: 6
#| fig-cap: "Optimierte Fallzahl für den Zweistichproben t-Test."
#| label: fig-samplesize-1
plot(res_ttest) +
theme_minimal(base_size = 14) +
labs(title = 'Optimierte Fallzahl für den Zweistichproben t-Test.')
```
## Anteilsvergleich für zwei Gruppen in R
Wann benötigen wir Anteile? Häufig nutzen wir Anteile, wenn wir zum Beispiel infizierte Ferkel untr zwei Behandlungen untersuchen wollen. Wie viel Prozent der Ferkel in der einen Gruppe werden infiziert sein und wieviel Ferkel in der anderen Gruppe. Daher haben wir ein Medikament und wollen schauen, ob sich die Anzahl an infizierten Ferkeln reduziert. Wir nehmen aber nicht die Anzahl als Wert sondern die relative Angabe. Im folgenden Beispiel haben wir $95\%$ infizierte Ferkel in der einen Gruppe und $80\%$ infizierte Ferkel in der anderen Gruppe. Wie viel Fallzahl brauchen wir nun, um diesen Untrschied nachzuweisen. Achtung, wir rechnen hier wirklich mit den relativen Zahlen und nicht mit der Differenz. Ist leider so.
Wir können die Funktion `ES.h()` benutzen um den Effekt zwischen zwei Wahrscheinlichkeiten zu berechnen. Wir geben einfach die beiden Wahrscheinlichkeiten für die zu erwartende Häufigkeit an infizierten Ferkeln ein. Dann berechnen wir den Effekt $h$ und nutzen diesen Wert dann für die Fallzahlberechnung.
```{r}
ES.h(p1 = 0.95, p2 = 0.80) |>
round(2)
```
Hier kommt es dann auch nicht wieder auf die letzte Prozentzahl an. Wir immer kann man hhier spielen. Aber du hast ja deine Zahlen aus der Literatur und passt diese Zahlen dann deinem Setting und anhand deinem biolologischen Wissen an. Es ist immer eine Gradwanderung, wie genau die Zahlen nun seien sollen. Insbesondere, wenn es dann doch nicht so viel Literatur gibt. Wir setzen die Option `n =` auf `NULL`, so dass uns die Funktion diese Option berechnet. Wir kriegen also die Fallzahl gegeben von dem Signifikanzniveau, der Power und der Effektstärke wieder. Dann geben wir noch an, dass wir zweiseitig testen.
```{r}
res_prop <- pwr.p.test(h = 0.48,
n = NULL,
sig.level = 0.05,
power = 0.80,
alternative = "two.sided")
res_prop
```
Am Ende erhalten wir eine Fallzahl von $n_1 = n_2 = 35$ Beobachtungen aus der Fallzahlberechnung. Wir wissen also, wie viele Ferkel wir untersuchen müssten um einen Unterschied von $95\%$ zu $80\%$ signifikant nachweisen zu können. In @fig-samplesize-2 sehen wir nochml die Sättigungskurve für die Power für verschiedene Fallzahlen. Mit unserer berechneten Fallzahl von $n=35$ pro Gruppe sind wir schon recht nah an der Sättigung der Funktion. Wir können damit die Fallzahl beibehalten und uns übrlegen, ob wir überhaupt das Geld und die Ressourcen haben um den Versuch mit dieser Anzahl an Ferkeln durchzuführen.
```{r}
#| message: false
#| warning: false
#| echo: true
#| fig-align: center
#| fig-height: 4
#| fig-width: 6
#| fig-cap: "Optimierte Fallzahl für zwei Anteile."
#| label: fig-samplesize-2
plot(res_prop) +
theme_minimal(base_size = 14) +
labs(title = 'Optimierte Fallzahl für zwei Anteile.')
```
## Anteil der erklärten Varianz in R
Nun können wir die Fallzahlplanung auch für eine einfaktorielle ANOVA durchführen. Das ist unsere Basis. Wir würden dann überlegen, wie sich dann die Fallzahl mit weiteren Faktoren ändern würde. Auch hier ein Wort der Warnung. Es gibt häufig so starke Randbedingungen, wie Kosten oder Fläche, dass die Berechnung der Fallzahl absolet wird. Wenn du drei Blöcke hat, dann hast du drei Blöcke. nutze die Blöcke dann auch. Wenn du freeie Wahl hättest und viel, viel Geld, dan kann man sicherlich besser die Fallzahl abschätzen und nutzen. Fallzahlberechnung nur so zum Spaß hat dann ja auch wenig Sinn. Also hier nochmal unser Modell was wir uns mit einer einfaktoriellen ANOVA anschauen.
$$
y \sim f_1
$$
Wir immer brauchen wir auch einen Effekt. In dem Fall der ANOVA ist der Effekt Cohen's $f$. Wir berechnen Cohen's $f$ wie folgt aus dem $\eta^2$. Wir können an dieser Stelle schon die Werte für $\eta^2$ einsetzen und $f$ berechnen.
$$
f = \sqrt{\cfrac{\eta^2}{1- \eta^2}}
$$
Du erinnerst dich aus der ANOVA, das $\eta^2$ beschreibt den Anteil an erklärter Varianz durch den Faktor in der ANOVA. Damit ist $\eta^2$ wie folgt definiert.
$$
\eta^2 = \cfrac{SS_{treat}}{SS_{total}}
$$
Das hilft uns nur so begrenzt weiter. Am besten überlegst du dir, wieviel Varianz wohl die Behandlung erklären kann. Damit hast du dann dein $\eta^2$. Wenn deine Behandlung vermutlich ca. 70% der Varianz in deinen Daten erklären und somit im Ourtcome erklären kann, dann setzt du $\eta^2 = 0.7$. Dann berechnest du dein $f = \sqrt{\tfrac{0.7}{0.3}} = 1.53$ und hast damit einen sehr großen Effekt. Was dir auch die Funktion `interpret_eta_squared()` aus dem R Paket `{effectsize}` mitteilt.
```{r}
interpret_eta_squared(1.53)
```
Wir können dann Cohen's $f$ in die Funktion `pwr.anova.test()` stecken und die Fallzahl pro Gruppe ausrechnen. Wir haben jetzt mal einen Faktor mit drei Behandlunsgleveln angenommen, deshalb ist auch $k = 3$ in der Funktion.
```{r}
res_anova <- pwr.anova.test(k = 3,
f = 1.5,
n = NULL,
sig.level = 0.05,
power = 0.80)
res_anova
```
Tja, mit so einem großen Effekt brauchen wir wirklich wenig Wiederholungen um mindestens einen Unterschied nachzuweisen. Stimmt, wir haben natürlich auch nur global über alle Gruppen geschaut. Ich finde die Fallzahlplanung für eine ANOVA relativ eingeschränkt, aber so ist das eben auch bei der Fallzahlplanung. Meistens ist das was möglich ist sehr eingeschränkt.
## Mehr als zwei Gruppen
Was passiert, wenn wir *mehr* als zwei Gruppen vorliegen haben? Was eigentlich immer der Fall ist. Also wir haben nicht nur zwei Düngestufen oder zwei Sorten Blumenkohl, die wir miteinander vergleichen wollen, sondern wir haben zehn oder mehr. Wir bauen jetzt nicht so ein großes Beispiel sondern nehmen einmal die Sprungweiten von den Hunde-, Katzen- und Fuchsflöhen.
```{r}
fleas_tbl <- read_excel("data/flea_dog_cat_fox.xlsx") |>
mutate(animal = as_factor(animal))
```
In @fig-sample-fox sehen wir nochmal die Verteilung der Sprungweiten für die drei Tierarten als Boxplots dargestellt.
```{r}
#| echo: true
#| message: false
#| label: fig-sample-fox
#| fig-align: center
#| fig-height: 5
#| fig-width: 5
#| fig-cap: "Boxplot der Sprungweiten für die Hunde-, Katzen- und Fuchsflöhe."
ggplot(fleas_tbl, aes(animal, jump_length, fill = animal)) +
theme_minimal() +
geom_boxplot() +
theme(legend.position = "none") +
scale_fill_okabeito()
```
Wenn wir jetzt für ein *neues* Experiment die Fallzahl planen wollen würden, dann brauchen wir die Mittelwerte und die Standardabweichung der Sprungweiten. Wir haben ja hier unser Pilotexperiment vorliegen, also können wir auch hier die Mittelwerte und die Standardabweichung getrennt für die Tierarten berechnen.
```{r}
#| message: false
#| warning: false
fleas_tbl |>
group_by(animal) |>
summarise(mean = mean(jump_length),
sd = sd(jump_length)) |>
mutate(across(where(is.numeric), round, 2))
```
Natürlich sind wir nicht an den Mittelwerten sondern an den Unterschieden interessiert. Daher rechnen wir nochmal in @tbl-sample-fox alle Mittelwertsdifferenzen aus.
| | | |
|:---:|:--------------------:|:---------------------:|
| | cat | fox |
| dog | $8.13 - 4.74 = 3.39$ | $8.13 - 9.16 = -1.03$ |
| cat | | $4.74 - 9.16 = -4.42$ |
: Mittelwertsdifferenzen für alle paarweisen Vergleiche. {#tbl-sample-fox}
Wenn wir die kleinste Differenz in den Mittelwerten mit einer Power von 80% nachweisen können, dann können wir auch alle anderen größeren Mittelwertsdifferenzen mit einer Power größer als 80% nachweisen. Daher brauchen wir die Fallzahlplanung nur für den kleinsten Mittelwertsunterschied durchführen. Wir berechnen noch Cohen's d mit $d = \tfrac{1.03}{(2.14 + 1.1)/2} \approx 0.16$. Ganz schön kleiner Wert, wie uns die Funktion `interpret_cohens_d()` aus dem R Paket `{effectsize}` mitteilt.
```{r}
interpret_cohens_d(0.15)
```
Weil wir es können berechnen wir auch die Fallzahl und kriegen einen kleinen Schreck. Denn mit einem so kleinen Effekt brauchen wir wirklich viele Flöhe.
```{r}
res_flea <- pwr.t.test(n = NULL,
sig.level = 0.05,
type = "two.sample",
alternative = "two.sided",
power = 0.80,
d = 0.16)
res_flea
```
Mit am Ende über $2 \cdot 615 = 1230$ Flöhen für den Vergleich von Hunde- und Fuchsflöhen sind wir wirklich weit, weit oben was die Fallzahl angeht. Da hilft es dann auch nicht viel, dass wir mit zusätzlich $615$ Katzenflöhen dann auch die anderen paaweisen Vergleichw als signifikant finden würden. Denn Cohen's d für den Vergleich von den Hunde- und Katrzenflöhen wäre $d = \tfrac{3.39}{(2.14 + 1.9)/2} \approx 0.42$. Damit würden wir dann eine Power von $0.99999997$ erhalten. Wir können die Power berechnen indem wir das Feld Power mit `NULL` belegen und die Fallzahl von $n = 615$ eintragen.
```{r}
res_flea <- pwr.t.test(n = 615,
sig.level = 0.05,
type = "two.sample",
alternative = "two.sided",
power = NULL,
d = 0.42)
res_flea
```
## G\*Power als Alternative
::: callout-tip
## Einführung in G\*Power als Alternative per Video
Du findest auf YouTube [G\*Power als Alternative](https://youtu.be/0ITiLwcUmGs) als Video Reihe. Ich werde zwar alles nochmal hier als Text aufschreiben, aber manchmal ist das Sehen und Hören dann einfacher.
:::
Als Alternative zu R wollen wir uns noch das Standalone Programmm [G\*Power \| Statistical Power Analyses](https://www.psychologie.hhu.de/arbeitsgruppen/allgemeine-psychologie-und-arbeitspsychologie/gpower) von der Heinrich-Heine-Universität Düsseldorf anschauen. Die Software ist nicht mehr die neuste, wird aber immer noch gewartet und an die aktuellen Versionen von Mac und Windows angepasst. Manchmal ist dann Point und Klick dann doch eine Alternative, wenn man sich ausprobieren will.
Ich werde also im Folgenden ein paar Screenshots zeigen, wie du mi G\*Power dir auch die Fallzahl für Mittelwertsunterschiede und Anteilesunterschiede berechnen kannst. Allgemein ist es so das G\*Power *immer* einseitig (eng. *Tail(s) one*) und zu einer Power von 95% testet. Daher müssen wir immr schauen, dass diese Werte stimmen. Insbeosndere, wenn du viel rumprobierst können auch die Werte mal wieder *zurückspringen*. Also bitte darauf achten.
In @fig-gpower-ttest sehen wir die Berechnung der Fallzahl für den t-Test für einen Vergleich zweier Gruppen. Wir müssen darauf achten, dass wir die Testfamilie richtig wählen und dann den korrekten Test auswählen. Du siehst bei der eigenen Verwendung dann, dass es hier eine große Auswahl gibt. Wir nehmen aber den Standard von zwei unabhängigen Gruppen. Wir erhalten dann eine Fallzahl von $n = 54$ für unseren Versuch. Das schöne an G\*Power ist, dass du relativ einfach und schnell mit den Zahlen spielen kannst. Das Speichern ist schwerer, so dass ich immer einen Screenshot empfehle. Man vergisst schnell, was alles in den Feldern stand.
::: column-page
{#fig-gpower-ttest fig-align="center" width="80%"}
:::
In @fig-gpower-prop sehen wir die Berechnung der Fallzahl für zwei Anteile. Wir haben zwei Gruppen vorliegen und in der ersten Gruppe haben wir 60% infizierte Ferkel, In der anderen Gruppe erwarten wir dann 90% infizierte Ferkel. Um den Unterschied von 30% nachzuweisen, brauchen wir mindestens 180 Ferkel. Leider ist es so, dass wir den Test für Anteile unter dem Reiter `Exact` finden. Das muss man eben wisen. Achte wieder auf die Power und das zu zweiseitig testen willst.
::: column-page
{#fig-gpower-prop fig-align="center" width="80%"}
:::
## Referenzen {.unnumbered}