Emptying the file drawer: attentional bias in dependent and non-dependent smokers
At my current career stage, my file drawer is not very big. However, it is a waste of everyone’s time if there is data lying around that no one has ever had the chance to see or use. This post outlines my undergraduate third year project (for more information on the background and methodology, the full thesis can be found on ResearchGate) on attentional bias. It is not the most particularly informative experiment due to the small groups sizes, and unless it is included in a meta-analysis it is probably never going to be published. Although the information is available in my thesis, I thought it would be useful to present all the information you would need to perform either a meta-analysis or a power analysis (and it gave me a good excuse to play around with R Markdown). I will start off with a brief explanation of what the study was about, then present the results in three stages: smoking characteristics, attentional bias, and then smoking motives.
The study investigated attentional bias in dependent and non-dependent smokers. Attentional bias is the tendency to fixate attention on drug related cues such as cigarettes, ashtrays, or packaging. Therefore, if you were to present two images side by side, one featuring a drug related image and the other featuring a non-drug related image, attentional bias would be indicated by looking at the drug related image more than the non-drug related image. There are several studies showing that smokers show greater attentional bias towards smoking related cues than non-smokers (I won’t provide references for ease of reading. If you have taken an interest, read the introduction to my thesis for all the background). However, when you start to explore the heterogeneity of smokers, the literature is less consistent. Some research has found light or non-dependent smokers show greater attentional bias towards smoking cues, whilst other research has found heavy or dependent smokers show greater attentional bias towards smoking cues (for more information on the differences between smoking groups, see this relatively short blog post). The aim of this study was to further investigate whether light or heavy smokers exhibit greater attentional bias.
A dot probe task was used which presents two images side by side, one contains a smoking image and the other contains a neutral image. A small dot probe replaces one of the images and the participant has to indicate which side of the screen the dot appeared on. Attentional bias is indicated by faster responses to dots replacing the smoking images in comparison to dots replacing the neutral images. In addition, the images were presented for three different durations (also known as the stimulus onset asynchrony or SOA) of 200ms, 500ms, and 2000ms. Therefore, the design of the study for the main research question was a 3 x 3 mixed design. There was one between-subject factor of smoking group containing light smokers, heavy smokers, and a non-smoking control group. In addition, there was one within-subject factor of SOA for images presented for 200ms, 500ms, and 2000ms.
Packages and data
library(tidyverse) library(knitr) library(ez) #Main data file. data<- read.csv("Dissertation_data.csv", header = TRUE, stringsAsFactors = FALSE) #Select data including only smokers. smoking.data <- data %>% filter(SorNS == "Smoker") #Data for WISDM analyses, selecting only smokers and the WISDM sub-scales wisdm.data <- data %>% filter(SorNS == "Smoker") %>% select(P_N, FTNDDepend, W_afat:W_weightcon) #Plotting variables Pal.2 <- c("#E69F00", "#56B4E9") #colourblind friendly colour palette Pal.3 <- c("#E69F00", "#56B4E9", "#009E73") text.size <- 14
The first part of the results includes the variables relating to smoking habits. Similar to previous research in the area, non-dependent smokers were defined by scoring 2 or less on the Fagerström Test For Cigarette Dependence (FTCD), and heavy smokers were defined by scoring 3 or more. The following variables are the mean and SD for each smoking related variable broken down by smoking group.
|Smoking group||Smoking charactertic||Mean||SD||N|
|Dependent||Cigarette per day||15.27||5.20||11|
|Dependent||Minutes since last cigarette||108.18||23.59||11|
|Dependent||Years as smoker||11.36||7.39||11|
|Non-dependent||Cigarette per day||6.43||3.55||7|
|Non-dependent||Minutes since last cigarette||432.86||423.86||7|
|Non-dependent||Years as smoker||6.14||4.91||7|
An important point to note here is that there are many other ways of defining dependent and non-dependent smokers other than the FTCD, and there are other key smoking measures such as the number of cigarettes smoked per day and the exhaled concentration of CO. These variables are included in the table, but we can take a closer look at their distribution to see how the groups differ.
smoking.data %>% ggplot(aes(x = FTNDDepend, y = Cigarettes_day)) + geom_boxplot(fill = Pal.2) + geom_jitter(width = 0.05) + ylab("Cigarettes per day") + xlab("Smoking group") + scale_y_continuous(breaks = c(0,5,10,15,20,25)) + theme_classic(base_size = text.size) + expand_limits(y = c(0, 25))
smoking.data %>% ggplot(aes(x = FTNDDepend, y = CO_ppm)) + geom_boxplot(fill = Pal.2) + geom_jitter(width = 0.05) + ylab("Exhaled CO (ppm)") + xlab("Smoking group") + scale_y_continuous(breaks = c(0,10,20,30,40,50,60)) + theme_classic(base_size = text.size) + expand_limits(y = c(0, 60))
smoking.data %>% ggplot(aes(x = FTNDDepend, y = FTND)) + geom_boxplot(fill = Pal.2) + geom_jitter(width = 0.05) + ylab("FTND score") + xlab("Smoking group") + scale_y_continuous(breaks = c(0:7)) + theme_classic(base_size = text.size) + expand_limits(y = c(0, 7))
The first piece of information to present for attentional bias is the descriptive statistics for each condition broken down by smoking group. For each smoking group, the mean (and SD) reaction time (RT) to neutral stimuli, smoking stimuli, and the subsequent attentional bias score is presented for each SOA condition.
|Smoking group||Attentional bias condition||SOA condition (ms)||Mean RT (ms)||SD||N|
We can also compare each group on their attentional bias score for each SOA condition. Boxplots are presented to show the distribution of attentional bias scores. On each plot, there is a horizontal dashed line on zero to indicate what no attentional bias would look like. Zero would indicate there is no RT difference between smoking and neutral images, positive values indicate attentional bias towards smoking images, and negative values indicate attentional bias towards neutral images.
#input the data set ggplot(data, aes(FTNDDepend, AB_200)) + geom_boxplot(fill = Pal.3) + geom_jitter(width = 0.05) + #perfect amount of jitter on the points theme_classic(base_size = text.size) + xlab("Smoking Group") + ylab("Attentional Bias Score (200ms)") + ylim(-100,100) + geom_hline(yintercept = 0, linetype = 2) #add line showing what no AB would look like