Learn R Programming

bnlearn (version 5.0.1)

coronary: Coronary heart disease data set

Description

Probable risk factors for coronary thrombosis, comprising data from 1841 men.

Usage

data(coronary)

Arguments

Format

The coronary data set contains the following 6 variables:

  • Smoking (smoking): a two-level factor with levels no and yes.

  • M. Work (strenuous mental work): a two-level factor with levels no and yes.

  • P. Work (strenuous physical work): a two-level factor with levels no and yes.

  • Pressure (systolic blood pressure): a two-level factor with levels <140 and >140.

  • Proteins (ratio of beta and alpha lipoproteins): a two-level factor with levels <3 and >3.

  • Family (family anamnesis of coronary heart disease): a two-level factor with levels neg and pos.

Examples

Run this code

# This is the undirected graphical model from Whittaker (1990).
data(coronary)
ug = empty.graph(names(coronary))
arcs(ug, check.cycles = FALSE) = matrix(
  c("Family", "M. Work", "M. Work", "Family",
    "M. Work", "P. Work", "P. Work", "M. Work",
    "M. Work", "Proteins", "Proteins", "M. Work",
    "M. Work", "Smoking", "Smoking", "M. Work",
    "P. Work", "Smoking", "Smoking", "P. Work",
    "P. Work", "Proteins", "Proteins", "P. Work",
    "Smoking", "Proteins", "Proteins", "Smoking",
    "Smoking", "Pressure", "Pressure", "Smoking",
    "Pressure", "Proteins", "Proteins", "Pressure"),
  ncol = 2, byrow = TRUE,
  dimnames = list(c(), c("from", "to")))
if (FALSE) graphviz.plot(ug, shape = "ellipse")

Run the code above in your browser using DataLab