BtheB                 package:HSAUR                 R Documentation

_B_e_a_t _t_h_e _B_l_u_e_s _D_a_t_a

_D_e_s_c_r_i_p_t_i_o_n:

     Data from a clinical trial of an interactive multimedia program
     called  `Beat the Blues'.

_U_s_a_g_e:

     data("BtheB")

_F_o_r_m_a_t:

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

     _d_r_u_g did the patient take anti-depressant drugs ('No' or 'Yes').

     _l_e_n_g_t_h the length of the current episode of depression,  a factor
          with levels '<6m' (less than six months) and  '>6m' (more
          than six months).

     _t_r_e_a_t_m_e_n_t treatment group,  a factor with levels 'TAU' (treatment
          as usual) and  'BtheB' (Beat the Blues)

     _b_d_i._p_r_e Beck Depression Inventory II before treatment.

     _b_d_i._2_m Beck Depression Inventory II after two months.

     _b_d_i._4_m Beck Depression Inventory II after four months.

     _b_d_i._6_m Beck Depression Inventory II after six months.

     _b_d_i._8_m Beck Depression Inventory II after eight months.

_D_e_t_a_i_l_s:

     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.

_S_o_u_r_c_e:

     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.

_E_x_a_m_p_l_e_s:

       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)

