Retail <- data.frame(
bill_id = c(501, 502, 503, 504, 505, 506),
customer_name = c('Aman', 'Riya', 'Karan', 'Neha', 'Rohit', 'Simran'),
gender = factor(c('male', 'female', 'male', 'female', 'male', 'female')),
membership = factor(c('gold', 'red', 'gold', 'none', 'silver', 'gold')),
Category = factor(c('Grocery', 'Electronics', 'Clothing', 'Grocery', 'Electronics', 'Clothing')),
Quantity = c(10, 1, 3, 8, 2, 5),
CostPrice = c(50, 20000, 800, 60, 18000, 700),
SellingPrice = c(70, 25000, 1000, 80, 22000, 500),
Discount = c(100, 2000, 150, 50, 500, 300),
DeliveryType = factor(c('home', 'store', 'home', 'store', 'home', 'home'))
)
Retail
## bill_id customer_name gender membership Category Quantity CostPrice
## 1 501 Aman male gold Grocery 10 50
## 2 502 Riya female red Electronics 1 20000
## 3 503 Karan male gold Clothing 3 800
## 4 504 Neha female none Grocery 8 60
## 5 505 Rohit male silver Electronics 2 18000
## 6 506 Simran female gold Clothing 5 700
## SellingPrice Discount DeliveryType
## 1 70 100 home
## 2 25000 2000 store
## 3 1000 150 home
## 4 80 50 store
## 5 22000 500 home
## 6 500 300 home