#'Anti-Smoking Emotive Communication Data for McNemar Test
#'
#'@description Paired nominal data providing the smoking status 62 individuals
#' before and after emotive video communications showing the danger of smoking.
#' This a demo dataset for McNemar test.
#'@name antismoking
#'@docType data
#'@usage data("antismoking")
#'@format A data frame with 62 rows and 3 columns.
#' @examples
#' data(antismoking)
#' xtabs(~before + after, data = antismoking)
NULL
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.