Description Usage Arguments Value Author(s) References Examples

1-sided Fisher's test of linkage disequilibrium

1 | ```
Fisher1sided(ctable, side = "great")
``` |

`ctable` |
Vector of the 4 entries in the 2x2 contingency table |

`side` |
"great" or "less" according to which tail you are interested in |

`pval.Fish` |
P-value |

`Prob ` |
Probability of the contingency under the null |

`yobs ` |
The observed n11 (first cell in the table) |

`n1 ` |
Row margin |

`n2 ` |
Column margin |

`nn ` |
Sample size |

Alex Lewin

Kulinskaya and Lewin 2008

1 2 | ```
ctable <- c(4,5,1,20)
Fisher1sided(ctable)
``` |

```
[1] 0 1 2 3 4 5
$pval.Fish
[1] 0.01945181
$Prob
[1] 0.01856764
$yobs
[1] 4
$n1
[1] 9
$n2
[1] 5
$nn
[1] 30
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.