On this Picostat.com statistics page, you will find information about the BtheB data set which pertains to Beat the Blues Data . The BtheB data set is found in the HSAUR R package. You can load the BtheB data set in R by issuing the following command at the console data("BtheB"). This will load the data into a variable called BtheB. If R says the BtheB data set is not found, you can try installing the package by issuing this command install.packages("HSAUR") and then attempt to reload the data. If you need to download R, you can go to the R project website. You can download a CSV (comma separated values) version of the BtheB R data set. The size of this file is about 3,301 bytes.
Beat the Blues Data
Data from a clinical trial of an interactive multimedia program called
‘Beat the Blues’.
A data frame with 100 observations of 100 patients
on the following 8 variables.
did the patient take anti-depressant
the length of the current episode of depression,
a factor with levels
<6m (less than six months) and
>6m (more than six months).
a factor with levels
TAU (treatment as usual)
BtheB (Beat the Blues)
Beck Depression Inventory
II before treatment.
Beck Depression Inventory II after two months.
Beck Depression Inventory II after four months.
Beck Depression Inventory II after six months.
Beck Depression Inventory II after eight months.
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.
J. Proudfoot, D. Goldberg and A. Mann (2003).
Computerised, interactive, multimedia CBT reduced anxiety
and depression in general practice: A RCT.
Psychological Medicine, 33, 217–227.
data("BtheB", package = "HSAUR")
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, 4, 6, 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, 4, 6, 8), ylim = ylim)
Dataset imported from https://www.r-project.org.