class4_1

#Q1
    supermarket = data.frame(
  bill_id = c(501,502,503,504,505,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),
  delevery_type = factor(c("Home", "Store", "Home", "Store", "Home", "Home"))
)
print(supermarket)

##   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 delevery_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

#Add Gross Revenue
supermarket$gross_revenue <- supermarket$quantity * supermarket$selling_price
print(supermarket$gross_revenue)

## [1]   700 25000  3000   640 44000  4500