bc

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$netRevenue<-supermarket$grossrevenue-supermarket$discount

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

supermarket$membership=="Gold"& supermarket$profit>500 & supermarket$deliveryType=="home"

## [1] FALSE FALSE FALSE FALSE FALSE  TRUE

e_commerce<- data.frame(
  OrderId=c(101,102,103,104,105),
  customername=c("Aman","riya","karan","nisha","rohit"),
  category=factor(c("electronics","clothing","electronics","clothing","electronics")),
  quantity = c(1,3,2,1,4),
  paymentmethod = factor(c("UPI","card","card","cash","UPI")),
  priceperunit = c(25000,1500,20000,5000,1200),
  discount = c(2000,300,1500,800,NA),
  Deliverydays = c(3,5,2,4,6)
  
)
e_commerce

##   OrderId customername    category quantity paymentmethod priceperunit discount
## 1     101         Aman electronics        1           UPI        25000     2000
## 2     102         riya    clothing        3          card         1500      300
## 3     103        karan electronics        2          card        20000     1500
## 4     104        nisha    clothing        1          cash         5000      800
## 5     105        rohit electronics        4           UPI         1200       NA
##   Deliverydays
## 1            3
## 2            5
## 3            2
## 4            4
## 5            6