retail

retail_supermarket.data<-data.frame(
  Bill_Id = c(501:506),
  customer_name = c("Aman","Riya","karan","neha","rohit","simran"),
  gender=factor(c("Male","Female","Male","Female","Male","Female")),
  Membership=factor(c("Gold","Silver","Gold","None","Silver","Gold")),
  category=factor(c("Grocery","Electronics","Clothing","Grocery","Electronics","Clothing")),
  Quantity=c(10,1,3,8,2,5),
  cost_Price=c(50,20000,800,60,18000,700),
  Selling_Price=c(70,25000,1000,80,22000,900),
  Discount=c(100,2000,150,50,500,300),
  Delivery_Type=factor(c("Home","Store","Home","Store","Home","Home"))
  )

print(retail_supermarket.data)

##   Bill_Id customer_name gender Membership    category Quantity cost_Price
## 1     501          Aman   Male       Gold     Grocery       10         50
## 2     502          Riya Female     Silver 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
##   Selling_Price Discount Delivery_Type
## 1            70      100          Home
## 2         25000     2000         Store
## 3          1000      150          Home
## 4            80       50         Store
## 5         22000      500          Home
## 6           900      300          Home