arules (version 0.1-3)

Adult: Adult Data Set

Description

The Adult data set contains the questionnaire data of the Adult database (originally called the Census Income Database) formatted as a data.frame prepared for use with arules. The Adult_transactions data set contains the data already prepared and coerced to transactions.

Usage

data("Adult")
data("Adult_transactions")

source

http://www.ics.uci.edu/~mlearn/MLRepository.html

Details

The Adult database was extracted from the census bureau database found at http://www.census.gov/ftp/pub/DES/www/welcome.html in 1994 by Ronny Kohavi and Barry Becker, Data Mining and Visualization, Silicon Graphics. It was originally used to predict whether income exceeds USD 50K/yr based on census data. We added the attribute income with levels small and large (>50K). To prepare the data set for association mining, we removed the continuous attribute fnlwgt (final weight). We also eliminated education-num because it is just a numeric representation of the attribute education. The other 4 continuous attributes we mapped to ordinal attributes as follows: [object Object],[object Object],[object Object]

References

Blake, C.L. & Merz, C.J. (1998). UCI Repository of Machine Learning Databases. Irvine, CA: University of California, Department of Information and Computer Science.

The data set was first cited in Kohavi, R. (1996). Scaling Up the Accuracy of Naive-Bayes Classifiers: a Decision-Tree Hybrid. Proceedings of the Second International Conference on Knowledge Discovery and Data Mining.

Examples

data("Adult")
dim(Adult)
Adult[1:2,]

### remove attributes
Adult[["fnlwgt"]] <- NULL
Adult[["education-num"]] <- NULL

### map metric attributes
Adult[[ "age"]] <- ordered(cut(Adult[[ "age"]], c(15,25,45,65,100)),
    labels = c("Young", "Middle-aged", "Senior", "Old"))

Adult[[ "hours-per-week"]] <- ordered(cut(Adult[[ "hours-per-week"]],
      c(0,25,40,60,168)),
    labels = c("Part-time", "Full-time", "Over-time", "Workaholic"))

Adult[[ "capital-gain"]] <- ordered(cut(Adult[[ "capital-gain"]],
      c(-Inf,0,median(Adult[[ "capital-gain"]][Adult[[ "capital-gain"]]>0]),1000000)),
    labels = c("None", "Low", "High"))

Adult[[ "capital-loss"]] <- ordered(cut(Adult[[ "capital-loss"]],
      c(-Inf,0,
	median(Adult[[ "capital-loss"]][Adult[[ "capital-loss"]]>0]),1000000)),
    labels = c("None", "Low", "High"))

### create transactions
Adult_transactions <- as(Adult, "transactions")
Adult_transactions