R/mrmvinput_to_mvmr_format.R

In WSpiller/MVMR: MVMR

#' 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
}