This is the sales report for this month:
dt.data1<-read.csv('Day1_data_1.csv')
head(dt.data1)## Day W1 W2 W3 W4 W5 W6 D7 D8 D9 D10 VM Weather Gas_Usage
## 1 1 28 34 40 35 22 35 36 43 30 39 16 rain_thunderstorm 7100
## 2 2 28 22 71 61 75 64 62 52 47 56 20 rain_thunderstorm 8814
## 3 3 25 37 72 68 73 59 58 66 53 55 33 sunny 6936
## 4 4 21 20 73 66 75 84 80 57 67 90 32 rain 10540
## 5 5 10 26 33 29 37 32 64 44 49 40 15 rain_thunderstorm 5028
## 6 6 37 NA 53 40 28 50 45 42 19 35 21 thurderstorm 6734
## Electricity_Usage Water_Usage Detergent_1 Detergent_2 Softener Bleach
## 1 28 87452 3 3 4 0
## 2 34 97839 3 4 3 14
## 3 25 97839 6 4 5 0
## 4 30 101318 4 11 2 0
## 5 23 47572 2 3 3 0
## 6 25 79860 5 1 4 0
## Aroma Bag CoinLoss
## 1 3 0 56
## 2 1 2 48
## 3 4 3 76
## 4 0 2 14
## 5 2 2 0
## 6 0 3 14