supermarket = 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")
)
print(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 None 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
print(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 None 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