abc

supermarket<-data.frame(
  BillID=c(501,502,503,504,505,506),
  customerName=c("aman","riya","karan","neha","rohit","simran"),
  gender=factor(c("male","female","male","female","male","female")),
  membership=factor(c("Gold","silver","Gold",NA,"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,900),
  discount=c(100,2000,150,50,500,300),
  deliveryType=factor(c("home","store","home","store","home","home"))
)
supermarket

##   BillID customerName gender membership    category quantity costPrice
## 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       <NA>     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          900      300         home

supermarket$grossrevenue<-supermarket$quantity*supermarket$sellingPrice

supermarket$totalCost<-supermarket$quantity*supermarket$costPrice
supermarket

##   BillID customerName gender membership    category quantity costPrice
## 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       <NA>     grocery        8        60
## 5    505        rohit   male     silver electronics        2     18000
## 6    506       simran female       Gold    clothing        5       700
##   sellingPrice discount deliveryType grossrevenue totalCost
## 1           70      100         home          700       500
## 2        25000     2000        store        25000     20000
## 3         1000      150         home         3000      2400
## 4           80       50        store          640       480
## 5        22000      500         home        44000     36000
## 6          900      300         home         4500      3500

supermarket$netRevenue<-supermarket$grossrevenue-supermarket$discount

supermarket$profit<-supermarket$netRevenue-supermarket$totalCost
supermarket

##   BillID customerName gender membership    category quantity costPrice
## 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       <NA>     grocery        8        60
## 5    505        rohit   male     silver electronics        2     18000
## 6    506       simran female       Gold    clothing        5       700
##   sellingPrice discount deliveryType grossrevenue totalCost netRevenue profit
## 1           70      100         home          700       500        600    100
## 2        25000     2000        store        25000     20000      23000   3000
## 3         1000      150         home         3000      2400       2850    450
## 4           80       50        store          640       480        590    110
## 5        22000      500         home        44000     36000      43500   7500
## 6          900      300         home         4500      3500       4200    700