This is the report about Live Without Tobacco website. Live Without Tobacco is the first open-source web based intervention for tobacco. It is currently available in Português, Español, English and also Deutsch.
This report covers data from the intervention release until 04-15-2015. It was build using R, so we will be able to run it often. Catch up the updates on our website.
In this first report version, we will describe: * lwt demographics (eg, sex, age) * Intervention usage (eg. traffic pattern, minutes spent on the website, most visited pages)
We extracted information from the log files and the registration form.
Log activity shows us that the intervention usage is increasing over time, specially after March 2015. Time to keep advertesing.
Until this date, we have 128 valid users. From those, 66 (51.6%) set up a quit date and only 11 (8.6%) have used the session “Have you already stopped”.
table(is.na(lwt$data_inserido.x))
##
## FALSE TRUE
## 66 62
summary(lwt$pagesVisited)
## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.00 8.00 12.00 14.45 16.00 86.00 21
## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 0.0 135.0 372.0 485.7 657.2 1692.0 21
boxplot(lwt$nsessions, horizontal = TRUE)
summary(lwt$nsessions)
## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.000 1.000 1.000 1.336 1.000 10.000 21
## Warning in loop_apply(n, do.ply): Removed 62 rows containing non-finite
## values (stat_density).