R: 1-sided Fisher's test of linkage disequilibrium
Fisher1sided
R Documentation
1-sided Fisher's test of linkage disequilibrium
Description
1-sided Fisher's test of linkage disequilibrium
Usage
Fisher1sided(ctable, side = "great")
Arguments
ctable
Vector of the 4 entries in the 2x2 contingency table
side
"great" or "less" according to which tail you are interested in
Value
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
Author(s)
Alex Lewin
References
Kulinskaya and Lewin 2008
Examples
ctable <- c(4,5,1,20)
Fisher1sided(ctable)
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(LDtests)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/LDtests/Fisher1sided.Rd_%03d_medium.png", width=480, height=480)
> ### Name: Fisher1sided
> ### Title: 1-sided Fisher's test of linkage disequilibrium
> ### Aliases: Fisher1sided
> ### Keywords: htest
>
> ### ** Examples
>
> 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
>
>
>
>
>
> dev.off()
null device
1
>