R/data-fish_oil_18.R

In openintro: Data Sets and Supplemental Functions from 'OpenIntro' Textbooks and Labs

#' Findings on n-3 Fatty Acid Supplement Health Benefits
#'
#' The results summarize each of the health outcomes for an experiment where
#' 12,933 subjects received a 1g fish oil supplement daily and 12,938 received
#' a placebo daily.  The experiment's duration was 5-years.
#'
#'
#' @name fish_oil_18
#' @docType data
#' @format The format is a list of 24 matrices.  Each matrix is a 2x2 table,
#' and below are the named items in the list, which also represent the
#' outcomes.
#' \describe{
#'   \item{major_cardio_event}{Major cardiovascular event. (Primary end point.)  }
#'   \item{cardio_event_expanded}{Cardiovascular event in expanded composite endpoint.}
#'   \item{myocardioal_infarction}{Total myocardial infarction. (Heart attack.)  }
#'   \item{stroke}{Total stroke.}
#'   \item{cardio_death}{Death from cardiovascular causes.}
#'   \item{PCI}{Percutaneous coronary intervention.}
#'   \item{CABG}{Coronary artery bypass graft.}
#'   \item{total_coronary_heart_disease}{Total coronary heart disease.}
#'   \item{ischemic_stroke}{Ischemic stroke.}
#'   \item{hemorrhagic_stroke}{Hemorrhagic stroke.}
#'   \item{chd_death}{Death from coronary heart disease.}
#'   \item{myocardial_infarction_death}{Death from myocardial infraction.}
#'   \item{stroke_death}{Death from stroke.}
#'   \item{invasive_cancer}{Invasive cancer of any type. (Primary end point.)  }
#'   \item{breast_cancer}{Breast cancer.}
#'   \item{prostate_cancer}{Prostate cancer.}
#'   \item{colorectal_cancer}{Colorectal cancer.}
#'   \item{cancer_death}{Death from cancer.}
#'   \item{death}{Death from any cause.}
#'   \item{major_cardio_event_after_2y}{Major cardiovascular event, excluding the first 2 years of follow-up.}
#'   \item{myocardial_infarction_after_2y}{Total myocardial infarction, excluding the first 2 years of follow-up.}
#'   \item{invasive_cancer_after_2y}{Invasive cancer of any type, excluding the first 2 years of follow-up.}
#'   \item{cancer_death_after_2y}{Death from cancer, excluding the first 2 years of follow-up.}
#'   \item{death_after_2y}{Death from any cause, excluding the first 2 years of follow-up.}
#' }
#' @source Manson JE, et al. 2018. Marine n-3 Fatty Acids and Prevention of
#' Cardiovascular Disease and Cancer. NEJMoa1811403.
#' \doi{10.1056/NEJMoa1811403}.
#' @keywords datasets
#' @examples
#'
#' names(fish_oil_18)
#' (tab <- fish_oil_18[["major_cardio_event"]])
#' chisq.test(tab)
#' fisher.test(tab)
#'
#' (tab <- fish_oil_18[["myocardioal_infarction"]])
#' chisq.test(tab)
#' fisher.test(tab)
"fish_oil_18"