View source: R/ComputeMixtureSummaries.R
SingVarIntSummaries | R Documentation |
Compare the single-predictor health risks when all of the other predictors in Z are fixed to their a specific quantile to when all of the other predictors in Z are fixed to their a second specific quantile.
SingVarIntSummaries( fit, y = NULL, Z = NULL, X = NULL, which.z = 1:ncol(Z), qs.diff = c(0.25, 0.75), qs.fixed = c(0.25, 0.75), method = "approx", sel = NULL, z.names = colnames(Z), ... )
fit |
An object containing the results returned by a the |
y |
a vector of outcome data of length |
Z |
an |
X |
an |
which.z |
vector indicating which variables (columns of |
qs.diff |
vector indicating the two quantiles at which to compute the single-predictor risk summary |
qs.fixed |
vector indicating the two quantiles at which to fix all of the remaining exposures in |
method |
method for obtaining posterior summaries at a vector of new points. Options are "approx" and "exact"; defaults to "approx", which is faster particularly for large datasets; see details |
sel |
logical expression indicating samples to keep; defaults to keeping the second half of all samples |
z.names |
optional vector of names for the columns of |
... |
other arguments to pass on to the prediction function |
If method == "approx"
, the argument sel
defaults to the second half of the MCMC iterations.
If method == "exact"
, the argument sel
defaults to keeping every 10 iterations after dropping the first 50% of samples, or if this results in fewer than 100 iterations, than 100 iterations are kept
For guided examples and additional information, go to https://jenfb.github.io/bkmr/overview.html
a data frame containing the (posterior mean) estimate and posterior standard deviation of the single-predictor risk measures
## First generate dataset set.seed(111) dat <- SimData(n = 50, M = 4) y <- dat$y Z <- dat$Z X <- dat$X ## Fit model with component-wise variable selection ## Using only 100 iterations to make example run quickly ## Typically should use a large number of iterations for inference set.seed(111) fitkm <- kmbayes(y = y, Z = Z, X = X, iter = 100, verbose = FALSE, varsel = TRUE) risks.int <- SingVarIntSummaries(fit = fitkm, method = "exact")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.