BtheB: Beat the Blues Data

In HSAUR3: A Handbook of Statistical Analyses Using R (3rd Edition)

Beat the Blues Data

Description

Data from a clinical trial of an interactive multimedia program called ‘Beat the Blues’.

Usage

data("BtheB")

Format

A data frame with 100 observations of 100 patients on the following 8 variables.

drug

did the patient take anti-depressant drugs (No or Yes).

length

the length of the current episode of depression, a factor with levels <6m (less than six months) and >6m (more than six months).

treatment

treatment group, a factor with levels TAU (treatment as usual) and BtheB (Beat the Blues)

bdi.pre

Beck Depression Inventory II before treatment.

bdi.2m

Beck Depression Inventory II after two months.

bdi.3m

Beck Depression Inventory II after one month follow-up.

bdi.5m

Beck Depression Inventory II after three months follow-up.

bdi.8m

Beck Depression Inventory II after six months follow-up.

Details

Longitudinal data from a clinical trial of an interactive, multimedia program known as "Beat the Blues" designed to deliver cognitive behavioural therapy to depressed patients via a computer terminal. Patients with depression recruited in primary care were randomised to either the Beating the Blues program, or to "Treatment as Usual (TAU)".

Note that the data are stored in the wide form, i.e., repeated measurments are represented by additional columns in the data frame.

Source

J. Proudfoot, D. Goldberg, A. Mann, B. S. Everitt, I. Marks and J. A. Gray, (2003). Computerized, interactive, multimedia cognitive-behavioural program for anxiety and depression in general practice. Psychological Medicine, 33(2), 217–227.

Examples

  data("BtheB", package = "HSAUR3")
  layout(matrix(1:2, nrow = 1))   
  ylim <- range(BtheB[,grep("bdi", names(BtheB))], na.rm = TRUE)
  boxplot(subset(BtheB, treatment == "TAU")[,grep("bdi", names(BtheB))],
          main = "Treated as usual", ylab = "BDI", 
          xlab = "Time (in months)", names = c(0, 2, 3, 5, 8), ylim = ylim)
  boxplot(subset(BtheB, treatment == "BtheB")[,grep("bdi", names(BtheB))], 
          main = "Beat the Blues", ylab = "BDI", xlab = "Time (in months)",
          names = c(0, 2, 3, 5, 8), ylim = ylim)

HSAUR3 documentation built on Sept. 11, 2024, 8:37 p.m.