Nothing
nettable_internal <- function(x, method,
##
upper, reference.group, baseline.reference,
order, tol.direct, backtransf,
##
digits, digits.I2, digits.pval,
##
scientific.pval, zero.pval, JAMA.pval,
big.mark, text.NA,
bracket, separator, lower.blank, upper.blank,
##
writexl,
##
warn, verbose) {
##
##
## (1) Some checks and assignments
##
##
is.bin <- inherits(x, "netmetabin")
##
if (is.null(method))
if (is.bin)
method <- "SIDDE"
else
method <- "Back-calculation"
##
if (is.null(reference.group))
reference.group <- x$reference.group
else
reference.group <- setref(reference.group, x$trts)
##
if (is.null(baseline.reference))
baseline.reference <- x$baseline.reference
##
if (is.null(backtransf))
backtransf <- x$backtransf
##
if (!is.null(order)) {
order <- setseq(order, x$trts, equal.length = FALSE)
baseline.reference <- FALSE
reference.group <- ""
}
##
##
## (2) Create dat.trts
##
##
dat.trts <- comptrts(x, upper, reference.group, baseline.reference, order)
##
##
## (4) Change order of prop.direct.common and prop.direct.random
##
##
if (!(is.bin & method == "SIDDE")) {
prop.common <- sortprop(x$prop.direct.common, dat.trts, x$sep.trts)
prop.random <- sortprop(x$prop.direct.random, dat.trts, x$sep.trts)
}
else
prop.common <- prop.random <- NULL
##
##
## (5) Calculate / extract indirect estimates
##
##
x.direct.indirect <- x
##
if (method == "SIDDE") {
ind <- sidde(x.direct.indirect, x$sep.trts, verbose, warn, FALSE)
##
x.direct.indirect$TE.indirect.common <- ind$TE.indirect.common
x.direct.indirect$seTE.indirect.common <- ind$seTE.indirect.common
##
if (!is.bin) {
x.direct.indirect$TE.indirect.random <- ind$TE.indirect.random
x.direct.indirect$seTE.indirect.random <- ind$seTE.indirect.random
}
}
##
direct.indirect <- direct.indirect(x.direct.indirect, tol.direct)
##
##
## (6) Transform matrices to data frames
##
##
common <- mat2dat.table(direct.indirect, "common", dat.trts,
backtransf,
digits, digits.I2, digits.pval,
scientific.pval, zero.pval, JAMA.pval,
big.mark, text.NA,
writexl)
##
random <- mat2dat.table(direct.indirect, "random", dat.trts,
backtransf,
digits, digits.I2, digits.pval,
scientific.pval, zero.pval, JAMA.pval,
big.mark, text.NA,
writexl)
res <- list(common = common, random = random)
##
res
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.