# NOT RUN {
X1 <- c(4, 2, 2, 14, 6, 9, 4, 0, 1)
X2 <- c(0, 0, 1, 3, 2, 1, 2, 2, 2)
N1 <- rep(148, 9)
N2 <- rep(132, 9)
Y1 <- N1 - X1
Y2 <- N2 - X2
df <- data.frame(X1, Y1, X2, Y2)
df
# Construction of the p-values and their supports (fisher.pvalues.support
# is from 'DiscreteFDR' package!)
df.formatted <- fisher.pvalues.support(counts = df, input = "noassoc")
raw.pvalues <- df.formatted$raw
pCDFlist <- df.formatted$support
LR.fast <- LR(raw.pvalues)
summary(LR.fast)
LR.crit <- LR(raw.pvalues, critical.values = TRUE)
summary(LR.crit)
NLR.fast <- NLR(raw.pvalues)
summary(NLR.fast)
NLR.crit <- NLR(raw.pvalues, critical.values = TRUE)
summary(NLR.crit)
# }
Run the code above in your browser using DataLab