CA

supermarkert<- data.frame(
  BillID=c(501,502,503,504,505,506),
  CustomerName=c("Aman","Riya","Karan","Neha","Rohit","Simran"),
  Gender=c("Male","Female","Male","Female","Male","Female"),
  Membership=c("Gold","Silver","Gold","None","Silver","Gold"),
  Category=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,900),
  Discount=c(100,2000,150,50,500,300),
  DeliveryType=c("Home","Store","Home","Store","Home","Home")
)

supermarkert$GrossRevenue <- supermarkert$Quantity * supermarkert$SellingPrice
supermarkert$TotalCost <- supermarkert$Quantity * supermarkert$CostPrice
supermarkert$NetRevenue <- supermarkert$GrossRevenue - supermarkert$Discount
supermarkert$Profit <- supermarkert$NetRevenue - supermarkert$TotalCost