#' Convert an object of class MRMVInput from the MendelianRandomization package to the MVMR mvmr_format class
#'
#' Creates a data.frame with additional class `mvmr_format` from an object of class `MRMVInput` generated by [`MendelianRandomization::mr_mvinput`].
#'
#' @param dat Object from [`MendelianRandomization::mr_mvinput`].
#'
#' @export
#' @return Object of class `mvmr_format`, the MVMR format
#' @examples
#' if (require("MendelianRandomization", quietly = TRUE)) {
#' bx <- as.matrix(rawdat_mvmr[,c("LDL_beta", "HDL_beta")])
#' bxse <- as.matrix(rawdat_mvmr[,c("LDL_se", "HDL_se")])
#' dat <- MendelianRandomization::mr_mvinput(bx = bx,
#' bxse = bxse,
#' by = rawdat_mvmr$SBP_beta,
#' byse = rawdat_mvmr$SBP_se,
#' snps = rawdat_mvmr$SNP)
#' dat <- mrmvinput_to_mvmr_format(dat)
#' head(dat)
#' class(dat)
#' }
mrmvinput_to_mvmr_format <- function(dat) {
if (!("MRMVInput" %in% class(dat))) {
stop('The class of the input data object must be "MRMVInput"')
}
out <- format_mvmr(BXGs = dat@betaX,
BYG = dat@betaY,
seBXGs = dat@betaXse,
seBYG = dat@betaYse,
RSID = dat@snps)
out
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.