sales <- structure(list(ProductCategoryName = structure(c(6L, 6L, 2L, 2L, 2L, 7L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L), .Label = c("Audio", "Cameras and camcorders ", "Cell phones", "Computers", "Games and Toys", "Home Appliances", "Music, Movies and Audio Books", "TV and Video"), class = "factor"), ProductSubcategory = structure(c(26L, 26L, 11L, 12L, 12L, 21L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 12L, 12L, 12L, 12L, 12L), .Label = c("Air Conditioners", "Bluetooth Headphones", "Boxed Games", "Camcorders", "Cameras & Camcorders Accessories", "Car Video", "Cell phones Accessories", "Coffee Machines", "Computers Accessories", "Desktops", "Digital Cameras", "Digital SLR Cameras", "Download Games", "Fans", "Home & Office Phones", "Home Theater System", "Lamps", "Laptops", "Microwaves", "Monitors", "Movie DVD", "MP4&MP3", "Printers, Scanners & Fax", "Projectors & Screens", "Recording Pen", "Refrigerators", "Smart phones & PDAs ", "Televisions", "Touch Screen Phones ", "VCD & DVD", "Washers & Dryers", "Water Heaters"), class = "factor"), Product = structure(c(1L, 1L, 2L, 3L, 3L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L), .Label = c("Fabrikam Refrigerator 4.6CuFt E2800 Grey", "A. Datum Consumer Digital Camera M300 Orange", "Contoso SLR Camera M144 Gold", "SV DVD Movies E100 Yellow", "The Phone Company Smart phones 160x160 M26 White", "Fabrikam SLR Camera 35 X358 Gold", "WWI Wireless Transmitter and Bluetooth Headphones X250 White" ), class = "factor"), Region = structure(c(30L, 30L, 30L, 30L, 30L, 30L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("Armenia", "Australia", "Bhutan", "Canada", "China", "France", "Germany", "Germany ", "Greece ", "India", "Iran", "Ireland ", "Italy ", "Japan", "Kyrgyzstan", "Pakistan", "Poland ", "Portugal", "Russia", "Singapore", "South Korea", "Spain", "Switzerland ", "Syria", "Taiwan", "Thailand", "the Netherlands", "Turkmenistan", "United Kingdom", "United States"), class = "factor"), Age = structure(c(32L, 31L, 30L, 40L, 40L, 36L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = c("34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "101", "102", "103", "104"), class = "factor"), IncomeGroup = structure(c(3L, 3L, 3L, 3L, 3L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("High", "Low", "Moderate"), class = "factor"), BrandName = structure(c(6L, 6L, 1L, 4L, 4L, 12L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 6L, 6L, 6L, 6L, 6L), .Label = c("A. Datum", "Adventure Works", "Adventure Works ", "Contoso", "Contoso ", "Fabrikam", "Fabrikam ", "Litware", "Litware ", "Northwind Traders", "Proseware", "Southridge Video", "Tailspin Toys", "The Phone Company", "Wide World Importers"), class = "factor"), MaritalStatus = structure(c(2L, 1L, 1L, 1L, 1L, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = c("M", "S"), class = "factor"), Gender = structure(c(1L, 1L, 1L, 1L, 2L, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = c("F", "M"), class = "factor"), TotalChildren = structure(c(3L, 3L, 5L, 4L, 4L, 6L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = c("0", "1", "2", "3", "4", "5"), class = "factor"), NumberChildrenAtHome = structure(c(2L, 2L, 3L, 1L, 1L, 1L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = c("0", "1", "2", "3", "4", "5"), class = "factor"), Education = structure(c(4L, 4L, 4L, 2L, 2L, 5L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = c("Bachelors", "Graduate Degree", "High School", "Partial College", "Partial High School"), class = "factor"), Occupation = structure(c(4L, 4L, 4L, 2L, 2L, 5L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = c("Clerical", "Management", "Manual", "Professional", "Skilled Manual"), class = "factor"), HouseOwnerFlag = structure(c(1L, 2L, 2L, 2L, 2L, 1L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = c("0", "1"), class = "factor"), NumberCarsOwned = structure(c(3L, 2L, 3L, 3L, 3L, 4L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Label = c("0", "1", "2", "3", "4"), class = "factor")), .Names = c("ProductCategoryName", "ProductSubcategory", "Product", "Region", "Age", "IncomeGroup", "BrandName", "MaritalStatus", "Gender", "TotalChildren", "NumberChildrenAtHome", "Education", "Occupation", "HouseOwnerFlag", "NumberCarsOwned" ), row.names = c(NA, 20L), class = "data.frame")