On this R-data statistics page, you will find information about the smoking data set which pertains to Nicotine Gum and Smoking Cessation . The smoking data set is found in the HSAUR R package. You can load the smoking data set in R by issuing the following command at the console data("smoking"). This will load the data into a variable called smoking. If R says the smoking 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 smoking R data set. The size of this file is about 584 bytes.
Nicotine Gum and Smoking Cessation
Data from a meta-analysis on nicotine gum and smoking cessation
A data frame with 26 observations (studies) on the following 4 variables.
the number of treated subjetcs who stopped smoking.
the totla number of treated subjects.
the number of subjetcs who stopped smoking without being treated.
the total number of subject not being treated.
Cigarette smoking is the leading cause of preventable death in the United States and kills more Americans than AIDS, alcohol, illegal drug use, car accidents, fires, murders and suicides combined. It has been estimated that 430,000 Americans die from smoking every year. Fighting tobacco use is, consequently, one of the major public health goals of our time and there are now many programs available designed to help smokers quit. One of the major aids used in these programs is nicotine chewing gum, which acts as a substitute oral activity and provides a source of nicotine that reduces the withdrawal symptoms experienced when smoking is stopped. But separate randomized clinical trials of nicotine gum have been largely inconclusive, leading Silagy (2003) to consider combining the results studies found from an extensive literature search. The results of these trials in terms of numbers of people in the treatment arm and the control arm who stopped smoking for at least 6 months after treatment are given here.
C. Silagy (2003), Nicotine replacement therapy for smoking cessation (Cochrane Review). The Cochrane Library, 4, John Wiley \& Sons, Chichester.
data("smoking", package = "HSAUR")
names = c("Treated", "Control"), ylab = "Percent Quitters")
Dataset imported from https://www.r-project.org.