1 | anc2COV.sub(data, FRAC = 0.5, TPM = FALSE, tau = 0.05)
|
data |
|
FRAC |
|
TPM |
|
tau |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (data, FRAC = 0.5, TPM = FALSE, tau = 0.05)
{
val = ancovampG(data[, 1:2], data[, 3], data[, 4:5], data[,
6], DH = TRUE, SEED = FALSE, test = yuen, FRAC = FRAC,
cov.fun = covl)$results[, 3]
val = elimna(val)
if (!TPM)
val = mean(val, na.rm = TRUE)
if (TPM)
val = sum(log(val[val <= tau]))
val
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.