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.
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(HSAUR2)
Loading required package: tools
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/HSAUR2/BtheB.Rd_%03d_medium.png", width=480, height=480)
> ### Name: BtheB
> ### Title: Beat the Blues Data
> ### Aliases: BtheB
> ### Keywords: datasets
>
> ### ** Examples
>
>
> data("BtheB", package = "HSAUR2")
> 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)
>
>
>
>
>
>
> dev.off()
null device
1
>