Learn R Programming

openintro (version 2.4.0)

fish_oil_18: Findings on n-3 Fatty Acid Supplement Health Benefits

Description

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.

Usage

fish_oil_18

Arguments

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.

major_cardio_event

Major cardiovascular event. (Primary end point.)

cardio_event_expanded

Cardiovascular event in expanded composite endpoint.

myocardioal_infarction

Total myocardial infarction. (Heart attack.)

stroke

Total stroke.

cardio_death

Death from cardiovascular causes.

PCI

Percutaneous coronary intervention.

CABG

Coronary artery bypass graft.

total_coronary_heart_disease

Total coronary heart disease.

ischemic_stroke

Ischemic stroke.

hemorrhagic_stroke

Hemorrhagic stroke.

chd_death

Death from coronary heart disease.

myocardial_infarction_death

Death from myocardial infraction.

stroke_death

Death from stroke.

invasive_cancer

Invasive cancer of any type. (Primary end point.)

breast_cancer

Breast cancer.

prostate_cancer

Prostate cancer.

colorectal_cancer

Colorectal cancer.

cancer_death

Death from cancer.

death

Death from any cause.

major_cardio_event_after_2y

Major cardiovascular event, excluding the first 2 years of follow-up.

myocardial_infarction_after_2y

Total myocardial infarction, excluding the first 2 years of follow-up.

invasive_cancer_after_2y

Invasive cancer of any type, excluding the first 2 years of follow-up.

cancer_death_after_2y

Death from cancer, excluding the first 2 years of follow-up.

death_after_2y

Death from any cause, excluding the first 2 years of follow-up.

Examples

Run this code

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)

Run the code above in your browser using DataLab