new

retail <- data.frame(
  billID = c(501 : 506),
  customerName = 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","Electrnonics","Clothing")),
  quantity = c(10,1,3,8,2,5),
  costPrice = c(50,20000,800,60,18000,700),
  sellingPrice = c(700,25000,100,80,22000,900),
  discount = c(100,2000,150,50,500,300),
  deliverType = factor(c("Home","Store","Home","Store","Home","Home"))
)