glandim

[glandim]

Generalized Anxiety as Moderator

We can say that generalized anxiety increases tobacco dependence, but we can't say that it is a moderator because, with or without it, your tobacco dependence will increase as you increase your smoking frequency

Code:

/* Definindo a biblioteca de dados */ LIBNAME mydata "/courses/d1406ae5ba27fe300" access=readonly;

/* Criando um novo conjunto de dados */ DATA new; set mydata.nesarc_pds;/* Definindo rótulos para variáveis */ LABEL TAB12MDX = "Tobacco Dependence Past 12 Months" CHECK321 = "Smoked Cigarettes in Past 12 Months" S3AQ3B1 = "Usual Smoking Frequency" S3AQ3C1 = "Usual Smoking Quantity" S9Q1A = "6+ month felt tense,nervous,worried" GENAXLIFE = "GENERALIZED ANXIETY DISORDER"; /* Tratamento de dados ausentes */ IF S3AQ3B1 = 9 THEN S3AQ3B1 = .; IF S3AQ3C1 = 99 THEN S3AQ3C1 = .; IF S9Q1A = 9 THEN S9Q1A = .; /* Mapeamento da frequência de fumo para categorias */ IF S3AQ3B1 = 1 THEN USFREQMO = 30; ELSE IF S3AQ3B1 = 2 THEN USFREQMO = 22; ELSE IF S3AQ3B1 = 3 THEN USFREQMO = 14; ELSE IF S3AQ3B1 = 4 THEN USFREQMO = 5; ELSE IF S3AQ3B1 = 5 THEN USFREQMO = 2.5; ELSE IF S3AQ3B1 = 6 THEN USFREQMO = 1; /* Subconjunto de dados para incluir apenas fumantes dos últimos 12 meses entre 18-60 anos */ IF CHECK321 = 1; IF AGE GT 18; IF AGE LE 60; /* Ordenando os dados por IDNUM */ PROC SORT; BY GENAXLIFE; PROC FREQ; TABLES TAB12MDX*USFREQMO/CHISQ; BY GENAXLIFE;

RUN;

[glandim]

Beers x Cigs

As we can see, there is a significant relationship between beers usually drinked and usual smoking quantity, but this relationship isn't strong enough, as the correlation r shows.

Code:

/* Definindo a biblioteca de dados */ LIBNAME mydata "/courses/d1406ae5ba27fe300" access=readonly;

/* Criando um novo conjunto de dados */ DATA new; set mydata.nesarc_pds;/* Definindo rótulos para variáveis */ LABEL TAB12MDX = "Tobacco Dependence Past 12 Months" CHECK321 = "Smoked Cigarettes in Past 12 Months" S3AQ3C1 = "Usual Smoking Quantity" S2AQ5D = "Beers usually drinked"; /* Tratamento de dados ausentes */ IF S3AQ3C1 = 99 THEN S3AQ3C1 = .; IF S2AQ5D = 99 THEN S2AQ5D = .; /* Subconjunto de dados para incluir apenas fumantes dos últimos 12 meses entre 18-60 anos */ IF CHECK321 = 1; IF AGE GT 18; IF AGE LE 60; /* Ordenando os dados por IDNUM */ PROC SORT; BY IDNUM; PROC CORR; VAR S2AQ5D S3AQ3C1; PROC SGPLOT; SCATTER X = S2AQ5D Y = S3AQ3C1;

RUN;

[glandim]

Anxiety and Smoking

This is an exemple comparing USFREQMO as 1 and 30. Within those two distant frequency, we got a high p value, compared with the pvalue adjusted, that should be less than 0.003. So it's clear that we don't have associating between frequency of smoking and felt tense, nervous or worried for a period of 6 months or more.

the code:

/* Definindo a biblioteca de dados */ LIBNAME mydata "/courses/d1406ae5ba27fe300" access=readonly;

/* Criando um novo conjunto de dados */ DATA new; set mydata.nesarc_pds;/* Definindo rótulos para variáveis */ LABEL TAB12MDX = "Tobacco Dependence Past 12 Months" CHECK321 = "Smoked Cigarettes in Past 12 Months" S3AQ3B1 = "Usual Smoking Frequency" S3AQ3C1 = "Usual Smoking Quantity" S9Q1A = "6+ month felt tense,nervous,worried"; /* Tratamento de dados ausentes */ IF S3AQ3B1 = 9 THEN S3AQ3B1 = .; IF S3AQ3C1 = 99 THEN S3AQ3C1 = .; IF S9Q1A = 9 THEN S9Q1A = .; /* Mapeamento da frequência de fumo para categorias */ IF S3AQ3B1 = 1 THEN USFREQMO = 30; ELSE IF S3AQ3B1 = 2 THEN USFREQMO = 22; ELSE IF S3AQ3B1 = 3 THEN USFREQMO = 14; ELSE IF S3AQ3B1 = 4 THEN USFREQMO = 5; ELSE IF S3AQ3B1 = 5 THEN USFREQMO = 2.5; ELSE IF S3AQ3B1 = 6 THEN USFREQMO = 1; /* Calculando o número estimado de cigarros por mês */ NUMCIGMO_EST = USFREQMO * S3AQ3C1; /* Calculando pacotes por mês e categorizando */ PACKSPERMONTH = NUMCIGMO_EST / 20; IF PACKSPERMONTH LE 5 THEN PACKCATEGORY = 3; ELSE IF PACKSPERMONTH LE 10 THEN PACKCATEGORY = 7; ELSE IF PACKSPERMONTH LE 20 THEN PACKCATEGORY = 15; ELSE IF PACKSPERMONTH LE 30 THEN PACKCATEGORY = 25; ELSE IF PACKSPERMONTH GT 30 THEN PACKCATEGORY = 58; /* Subconjunto de dados para incluir apenas fumantes dos últimos 12 meses entre 18-60 anos */ IF CHECK321 = 1; IF AGE GT 18; IF AGE LE 60; /*IF USFREQMO = 1 OR USFREQMO = 2.5; IF USFREQMO = 1 OR USFREQMO = 5; IF USFREQMO = 1 OR USFREQMO = 14; IF USFREQMO = 1 OR USFREQMO = 22;*/ IF USFREQMO = 1 OR USFREQMO = 30; /*IF USFREQMO = 2.5 OR USFREQMO = 5; IF USFREQMO = 2.5 OR USFREQMO = 14; IF USFREQMO = 2.5 OR USFREQMO = 22; IF USFREQMO = 2.5 OR USFREQMO = 30; IF USFREQMO = 5 OR USFREQMO = 14; IF USFREQMO = 5 OR USFREQMO = 22; IF USFREQMO = 5 OR USFREQMO = 30; IF USFREQMO = 14 OR USFREQMO = 22; IF USFREQMO = 14 OR USFREQMO = 30; IF USFREQMO = 22 OR USFREQMO = 30;*/ /* Ordenando os dados por IDNUM */ PROC SORT; BY IDNUM; PROC FREQ; TABLES S9Q1A*USFREQMO/CHISQ;

RUN;

[glandim]

Relação entre quadro de ansiedade e tabagismo

Aceita-se a hipótese nula de que não há nenhuma relação entre quantidade de cigarros fumados entre quem tem ou não ansiedade.

/* Definindo a biblioteca de dados */ LIBNAME mydata "/courses/d1406ae5ba27fe300" access=readonly;

/* Criando um novo conjunto de dados */ DATA new; set mydata.nesarc_pds;/* Definindo rótulos para variáveis */ LABEL TAB12MDX = "Tobacco Dependence Past 12 Months" CHECK321 = "Smoked Cigarettes in Past 12 Months" S3AQ3B1 = "Usual Smoking Frequency" S3AQ3C1 = "Usual Smoking Quantity"; /* Tratamento de dados ausentes */ IF S3AQ3B1 = 9 THEN S3AQ3B1 = .; IF S3AQ3C1 = 99 THEN S3AQ3C1 = .; /* Mapeamento da frequência de fumo para categorias */ IF S3AQ3B1 = 1 THEN USFREQMO = 30; ELSE IF S3AQ3B1 = 2 THEN USFREQMO = 22; ELSE IF S3AQ3B1 = 3 THEN USFREQMO = 14; ELSE IF S3AQ3B1 = 4 THEN USFREQMO = 5; ELSE IF S3AQ3B1 = 5 THEN USFREQMO = 2.5; ELSE IF S3AQ3B1 = 6 THEN USFREQMO = 1; /* Calculando o número estimado de cigarros por mês */ NUMCIGMO_EST = USFREQMO * S3AQ3C1; /* Calculando pacotes por mês e categorizando */ PACKSPERMONTH = NUMCIGMO_EST / 20; IF PACKSPERMONTH LE 5 THEN PACKCATEGORY = 3; ELSE IF PACKSPERMONTH LE 10 THEN PACKCATEGORY = 7; ELSE IF PACKSPERMONTH LE 20 THEN PACKCATEGORY = 15; ELSE IF PACKSPERMONTH LE 30 THEN PACKCATEGORY = 25; ELSE IF PACKSPERMONTH GT 30 THEN PACKCATEGORY = 58; /* Subconjunto de dados para incluir apenas fumantes dos últimos 12 meses entre 18-25 anos */ IF CHECK321 = 1; IF AGE LE 25; /* Ordenando os dados por IDNUM */ PROC SORT; BY IDNUM; /* Análise de variância*/ PROC ANOVA; CLASS S9Q1A; MODEL NUMCIGMO_EST = S9Q1A; MEANS S9Q1A;

RUN;

[glandim]

Problemas de ansiedade para tabagistas dos ultimos 12 meses

LIBNAME mydata "/courses/d1406ae5ba27fe300" access=readonly;

DATA new; set mydata.nesarc_pds;

LABEL TAB12MDX="Tobacco Dependence Past 12 Months" CHECK321="Smoked Cigarettes in Past 12 Months" S9Q410="Felt Heart Racing"; /S9Q417="Had Trouble Swalling"; S9Q418="Felt Pain or Pressure in Chest";/

IF CHECK321 = 9 THEN CHECK321 = .; IF S9Q410 = 9 THEN S9Q410 = .; IF S9Q417 = 9 THEN S9Q417 = .; IF S9Q418 = 9 THEN S9Q418 = .;

IF S9Q410 = 2 THEN S9Q410 = 0; IF S9Q417 = 2 THEN S9Q417 = 0; IF S9Q418 = 2 THEN S9Q418 = 0;

NUMPROB = SUM(of S9Q410 S9Q417 S9Q418);

IF NUMPROB > 1 THEN PROBS = 1; /More than one problem/ ELSE IF S9Q410 = 1 THEN PROBS = 2; /Heart Racing/ ELSE IF S9Q417 = 1 THEN PROBS = 3; /Touble Swalling/ ELSE IF S9Q418 = 1 THEN PROBS = 4; /Pain/Pressure in Ches/

/subsetting the data to include only past 12 month smokers, age 18-30/ IF CHECK321=1; IF AGE LE 30;

PROC SORT; by IDNUM;

PROC GCHART; VBAR NUMPROB/discrete TYPE=mean SUMVAR=TAB12MDX;

PROC FREQ; TABLES NUMPROB PROBS TAB12MDX CHECK321 S9Q410 S9Q417 S9Q418 AGE;

RUN;

[glandim]

Tobacco Dependence x Anxiety problems

LIBNAME mydata "/courses/d1406ae5ba27fe300" access=readonly;

DATA new; set mydata.nesarc_pds;

LABEL TAB12MDX="Tobacco Dependence Past 12 Months" CHECK321="Smoked Cigarettes in Past 12 Months" S9Q410="Felt Heart Racing"; /S9Q417="Had Trouble Swalling"; S9Q418="Felt Pain or Pressure in Chest";/

IF CHECK321 = 9 THEN CHECK321 = .; IF S9Q410 = 9 THEN S9Q410 = .; IF S9Q417 = 9 THEN S9Q417 = .; IF S9Q418 = 9 THEN S9Q418 = .;

IF S9Q410 = 2 THEN S9Q410 = 0; IF S9Q417 = 2 THEN S9Q417 = 0; IF S9Q418 = 2 THEN S9Q418 = 0;

NUMPROB = SUM(of S9Q410 S9Q417 S9Q418);

IF NUMPROB > 1 THEN PROBS = 1; /More than one problem/ ELSE IF S9Q410 = 1 THEN PROBS = 2; /Heart Racing/ ELSE IF S9Q417 = 1 THEN PROBS = 3; /Touble Swalling/ ELSE IF S9Q418 = 1 THEN PROBS = 4; /Pain/Pressure in Ches/

/subsetting the data to include only past 12 month smokers, age 18-30/ IF CHECK321=1; IF AGE LE 30;

PROC SORT; by IDNUM;

PROC FREQ; TABLES NUMPROB PROBS TAB12MDX CHECK321 S9Q410 S9Q417 S9Q418 AGE;

RUN;

Between 18 and 40 years old, 48.66% of smokers doesn't had any problem of Heart Racing, Trouble Swalling or Pain/Pressure in chest.

54% of smokers felt more than one of these problems, 30% felt only heart racing, 14% felt Trouble Swalling and pressure in chest

[glandim]

Relação Ansiedade e Tabagismo

Ao ter em mãos o estudo da NESARC, tive a curiosidade de entender se há alguma relação entre o tabagismo com a ansiedade da população. O interesse vem de experiências com conhecidos que podem utilizar do tabagismo como rota de fuga ou que possuem a ansiedade impulsionada pelo consumo do tabaco.

"A prevalência de tabagismo em Portugal é estimada em 19,7% (2005). O tabagismo é prevalente nas perturbações da an-siedade. Alguns estudos referem que 60% dos fumadores tem história de depressão." (Farinha et. al., 2013).