R/data-email50.R

In tessington/qsci381: Data used in QSCI 381, University of Washington

#' Sample of 50 emails
#'
#' This is a subsample of the \code{\link{email}} data set.
#'
#'
#' @name email50
#' @docType data
#' @format A data frame with 50 observations on the following 21 variables.
#' \describe{
#'   \item{spam}{Indicator for whether the email was spam.}
#'   \item{to_multiple}{Indicator for whether the email was addressed to more
#'   than one recipient.}
#'   \item{from}{Whether the message was listed as from anyone (this is usually
#'   set by default for regular outgoing email).}
#'   \item{cc}{Indicator for whether anyone was CCed.}
#'   \item{sent_email}{Indicator for whether the sender had been sent an email
#'   in the last 30 days.}
#'   \item{time}{Time at which email was sent.}
#'   \item{image}{The number of images attached.}
#'   \item{attach}{The number of attached files.}
#'   \item{dollar}{The number of times a dollar sign or the word \dQuote{dollar}
#'   appeared in the email.}
#'   \item{winner}{Indicates whether \dQuote{winner} appeared in the email.}
#'   \item{inherit}{The number of times \dQuote{inherit} (or an extension, such
#'   as \dQuote{inheritance}) appeared in the email.}
#'   \item{viagra}{The number of times \dQuote{viagra} appeared in the email.}
#'   \item{password}{The number of times \dQuote{password} appeared in the email.}
#'   \item{num_char}{The number of characters in the email, in thousands.}
#'   \item{line_breaks}{The number of line breaks in the email (does not count
#'   text wrapping).}
#'   \item{format}{Indicates whether the email was written using HTML (e.g. may
#'   have included bolding or active links).}
#'   \item{re_subj}{Whether the subject started with \dQuote{Re:}, \dQuote{RE:},
#'   \dQuote{re:}, or \dQuote{rE:}}
#'   \item{exclaim_subj}{Whether there was an exclamation point in the subject.}
#'   \item{urgent_subj}{Whether the word \dQuote{urgent} was in the email subject.}
#'   \item{exclaim_mess}{The number of exclamation points in the email message.}
#'   \item{number}{Factor variable saying whether there was no number, a small
#'   number (under 1 million), or a big number.}
#'   }
#' @seealso \code{\link{email}}
#' @source David Diez's Gmail Account, early months of 2012. All personally
#' identifiable information has been removed.
#' @keywords datasets
#' @examples
#'
#' set.seed(5)
#' d  <- email[sample(nrow(email), 50),][c(1:25,27:50,26),]
#' identical(d, email50)
#'
#' # the "[c(1,26,2:25,27:50),]" was added to reorder the cases
#'
"email50"