Retail <- data.frame(
Bid = c(501,502,503,504,505,506),
Cname = c("Aman","Riya","Karan","Neha","Rohit","Simran"),
Gender = factor(c("M","F","M","F","M","F")),
Membership = factor(c("gold","silver","gold","none","silver","gold")),
Category = factor(c("grocery","electronic","clothing","grocery","electronic","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"))
)
Retail
## Bid Cname Gender Membership Category Quantity Costprice SellingPrice
## 1 501 Aman M gold grocery 10 50 70
## 2 502 Riya F silver electronic 1 20000 25000
## 3 503 Karan M gold clothing 3 800 1000
## 4 504 Neha F none grocery 8 60 80
## 5 505 Rohit M silver electronic 2 18000 22000
## 6 506 Simran F gold clothing 5 700 900
## Discount DeliveryType
## 1 100 Home
## 2 2000 store
## 3 150 Home
## 4 50 store
## 5 500 Home
## 6 300 Home
Retail$GrossRevenue <- Retail$Quantity * Retail$SellingPrice
Retail
## Bid Cname Gender Membership Category Quantity Costprice SellingPrice
## 1 501 Aman M gold grocery 10 50 70
## 2 502 Riya F silver electronic 1 20000 25000
## 3 503 Karan M gold clothing 3 800 1000
## 4 504 Neha F none grocery 8 60 80
## 5 505 Rohit M silver electronic 2 18000 22000
## 6 506 Simran F gold clothing 5 700 900
## Discount DeliveryType GrossRevenue
## 1 100 Home 700
## 2 2000 store 25000
## 3 150 Home 3000
## 4 50 store 640
## 5 500 Home 44000
## 6 300 Home 4500
Retail$TotalCost <- Retail$Quantity * Retail$Costprice
Retail
## Bid Cname Gender Membership Category Quantity Costprice SellingPrice
## 1 501 Aman M gold grocery 10 50 70
## 2 502 Riya F silver electronic 1 20000 25000
## 3 503 Karan M gold clothing 3 800 1000
## 4 504 Neha F none grocery 8 60 80
## 5 505 Rohit M silver electronic 2 18000 22000
## 6 506 Simran F gold clothing 5 700 900
## Discount DeliveryType GrossRevenue TotalCost
## 1 100 Home 700 500
## 2 2000 store 25000 20000
## 3 150 Home 3000 2400
## 4 50 store 640 480
## 5 500 Home 44000 36000
## 6 300 Home 4500 3500
Retail$NetRevenue <- Retail$GrossRevenue -Retail$Discount
Retail
## Bid Cname Gender Membership Category Quantity Costprice SellingPrice
## 1 501 Aman M gold grocery 10 50 70
## 2 502 Riya F silver electronic 1 20000 25000
## 3 503 Karan M gold clothing 3 800 1000
## 4 504 Neha F none grocery 8 60 80
## 5 505 Rohit M silver electronic 2 18000 22000
## 6 506 Simran F gold clothing 5 700 900
## Discount DeliveryType GrossRevenue TotalCost NetRevenue
## 1 100 Home 700 500 600
## 2 2000 store 25000 20000 23000
## 3 150 Home 3000 2400 2850
## 4 50 store 640 480 590
## 5 500 Home 44000 36000 43500
## 6 300 Home 4500 3500 4200
Retail$Profit<- Retail$NetRevenue - Retail$TotalCost
Retail
## Bid Cname Gender Membership Category Quantity Costprice SellingPrice
## 1 501 Aman M gold grocery 10 50 70
## 2 502 Riya F silver electronic 1 20000 25000
## 3 503 Karan M gold clothing 3 800 1000
## 4 504 Neha F none grocery 8 60 80
## 5 505 Rohit M silver electronic 2 18000 22000
## 6 506 Simran F gold clothing 5 700 900
## Discount DeliveryType GrossRevenue TotalCost NetRevenue Profit
## 1 100 Home 700 500 600 100
## 2 2000 store 25000 20000 23000 3000
## 3 150 Home 3000 2400 2850 450
## 4 50 store 640 480 590 110
## 5 500 Home 44000 36000 43500 7500
## 6 300 Home 4500 3500 4200 700