library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
Stu_Rollno=c(1:46)
Stu_name=c('A','B','C','G','F','F','F','G','G', 'F', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F','G', 'F')
Stu_stop<-c("Ponneri","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar")
print("The Total Students Bus Allocation Details")
## [1] "The Total Students Bus Allocation Details"
Buskm<-c(20,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30)
df<-data.frame(Stu_Rollno,Stu_name,Stu_stop,Buskm)
print(df)
## Stu_Rollno Stu_name Stu_stop Buskm
## 1 1 A Ponneri 20
## 2 2 B Periyar nagar 30
## 3 3 C Periyar nagar 30
## 4 4 G Periyar nagar 30
## 5 5 F Periyar nagar 30
## 6 6 F Periyar nagar 30
## 7 7 F Periyar nagar 30
## 8 8 G Periyar nagar 30
## 9 9 G Periyar nagar 30
## 10 10 F Periyar nagar 30
## 11 11 F Periyar nagar 30
## 12 12 F Periyar nagar 30
## 13 13 A Periyar nagar 30
## 14 14 B Periyar nagar 30
## 15 15 C Periyar nagar 30
## 16 16 G Periyar nagar 30
## 17 17 F Periyar nagar 30
## 18 18 F Periyar nagar 30
## 19 19 F Periyar nagar 30
## 20 20 G Periyar nagar 30
## 21 21 G Periyar nagar 30
## 22 22 F Periyar nagar 30
## 23 23 F Periyar nagar 30
## 24 24 A Periyar nagar 30
## 25 25 B Periyar nagar 30
## 26 26 C Periyar nagar 30
## 27 27 G Periyar nagar 30
## 28 28 F Periyar nagar 30
## 29 29 F Periyar nagar 30
## 30 30 F Periyar nagar 30
## 31 31 G Periyar nagar 30
## 32 32 G Periyar nagar 30
## 33 33 F Periyar nagar 30
## 34 34 F Periyar nagar 30
## 35 35 A Periyar nagar 30
## 36 36 B Periyar nagar 30
## 37 37 C Periyar nagar 30
## 38 38 G Periyar nagar 30
## 39 39 F Periyar nagar 30
## 40 40 F Periyar nagar 30
## 41 41 F Periyar nagar 30
## 42 42 G Periyar nagar 30
## 43 43 G Periyar nagar 30
## 44 44 F Periyar nagar 30
## 45 45 G Periyar nagar 30
## 46 46 F Periyar nagar 30
a=(df %>% count(Stu_stop))
print(a)
## Stu_stop n
## 1 Periyar nagar 45
## 2 Ponneri 1
b=((a$n)/30)
print(b)
## [1] 1.50000000 0.03333333
c<-c(30,30,30,30,30)
Buses_required<-ceiling(b)
print("The Total Bus Required is allocated")
## [1] "The Total Bus Required is allocated"
df1 <- data.frame(a,b,Buses_required)
print(df1)
## Stu_stop n b Buses_required
## 1 Periyar nagar 45 1.50000000 2
## 2 Ponneri 1 0.03333333 1
Fuel_price<-readline(prompt="Enter the fuel price:")
## Enter the fuel price:
Milage<-readline(prompt="Enter the Mileage:")
## Enter the Mileage:
as.integer(Fuel_price)
## [1] NA
as.integer(Milage)
## [1] NA
df<-data.frame(Stu_Rollno,Stu_name,Stu_stop,Buskm,Fuel_price,Milage)
print(df)
## Stu_Rollno Stu_name Stu_stop Buskm Fuel_price Milage
## 1 1 A Ponneri 20
## 2 2 B Periyar nagar 30
## 3 3 C Periyar nagar 30
## 4 4 G Periyar nagar 30
## 5 5 F Periyar nagar 30
## 6 6 F Periyar nagar 30
## 7 7 F Periyar nagar 30
## 8 8 G Periyar nagar 30
## 9 9 G Periyar nagar 30
## 10 10 F Periyar nagar 30
## 11 11 F Periyar nagar 30
## 12 12 F Periyar nagar 30
## 13 13 A Periyar nagar 30
## 14 14 B Periyar nagar 30
## 15 15 C Periyar nagar 30
## 16 16 G Periyar nagar 30
## 17 17 F Periyar nagar 30
## 18 18 F Periyar nagar 30
## 19 19 F Periyar nagar 30
## 20 20 G Periyar nagar 30
## 21 21 G Periyar nagar 30
## 22 22 F Periyar nagar 30
## 23 23 F Periyar nagar 30
## 24 24 A Periyar nagar 30
## 25 25 B Periyar nagar 30
## 26 26 C Periyar nagar 30
## 27 27 G Periyar nagar 30
## 28 28 F Periyar nagar 30
## 29 29 F Periyar nagar 30
## 30 30 F Periyar nagar 30
## 31 31 G Periyar nagar 30
## 32 32 G Periyar nagar 30
## 33 33 F Periyar nagar 30
## 34 34 F Periyar nagar 30
## 35 35 A Periyar nagar 30
## 36 36 B Periyar nagar 30
## 37 37 C Periyar nagar 30
## 38 38 G Periyar nagar 30
## 39 39 F Periyar nagar 30
## 40 40 F Periyar nagar 30
## 41 41 F Periyar nagar 30
## 42 42 G Periyar nagar 30
## 43 43 G Periyar nagar 30
## 44 44 F Periyar nagar 30
## 45 45 G Periyar nagar 30
## 46 46 F Periyar nagar 30
Fuel_needed=((df$Buskm)/10)
as.integer(Fuel_needed)
## [1] 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3
## [39] 3 3 3 3 3 3 3 3
df<-data.frame(Stu_Rollno,Stu_name,Stu_stop,Buskm,Fuel_price,Milage,Fuel_needed)
print(df)
## Stu_Rollno Stu_name Stu_stop Buskm Fuel_price Milage Fuel_needed
## 1 1 A Ponneri 20 2
## 2 2 B Periyar nagar 30 3
## 3 3 C Periyar nagar 30 3
## 4 4 G Periyar nagar 30 3
## 5 5 F Periyar nagar 30 3
## 6 6 F Periyar nagar 30 3
## 7 7 F Periyar nagar 30 3
## 8 8 G Periyar nagar 30 3
## 9 9 G Periyar nagar 30 3
## 10 10 F Periyar nagar 30 3
## 11 11 F Periyar nagar 30 3
## 12 12 F Periyar nagar 30 3
## 13 13 A Periyar nagar 30 3
## 14 14 B Periyar nagar 30 3
## 15 15 C Periyar nagar 30 3
## 16 16 G Periyar nagar 30 3
## 17 17 F Periyar nagar 30 3
## 18 18 F Periyar nagar 30 3
## 19 19 F Periyar nagar 30 3
## 20 20 G Periyar nagar 30 3
## 21 21 G Periyar nagar 30 3
## 22 22 F Periyar nagar 30 3
## 23 23 F Periyar nagar 30 3
## 24 24 A Periyar nagar 30 3
## 25 25 B Periyar nagar 30 3
## 26 26 C Periyar nagar 30 3
## 27 27 G Periyar nagar 30 3
## 28 28 F Periyar nagar 30 3
## 29 29 F Periyar nagar 30 3
## 30 30 F Periyar nagar 30 3
## 31 31 G Periyar nagar 30 3
## 32 32 G Periyar nagar 30 3
## 33 33 F Periyar nagar 30 3
## 34 34 F Periyar nagar 30 3
## 35 35 A Periyar nagar 30 3
## 36 36 B Periyar nagar 30 3
## 37 37 C Periyar nagar 30 3
## 38 38 G Periyar nagar 30 3
## 39 39 F Periyar nagar 30 3
## 40 40 F Periyar nagar 30 3
## 41 41 F Periyar nagar 30 3
## 42 42 G Periyar nagar 30 3
## 43 43 G Periyar nagar 30 3
## 44 44 F Periyar nagar 30 3
## 45 45 G Periyar nagar 30 3
## 46 46 F Periyar nagar 30 3
Fuel_cost=((df$Fuel_needed)*100)
print("The Fuel Required is calculated(in ltrs)")
## [1] "The Fuel Required is calculated(in ltrs)"
df<-data.frame(Stu_Rollno,Stu_name,Stu_stop,Buskm,Fuel_price,Milage,Fuel_needed,Fuel_cost)
print(df)
## Stu_Rollno Stu_name Stu_stop Buskm Fuel_price Milage Fuel_needed
## 1 1 A Ponneri 20 2
## 2 2 B Periyar nagar 30 3
## 3 3 C Periyar nagar 30 3
## 4 4 G Periyar nagar 30 3
## 5 5 F Periyar nagar 30 3
## 6 6 F Periyar nagar 30 3
## 7 7 F Periyar nagar 30 3
## 8 8 G Periyar nagar 30 3
## 9 9 G Periyar nagar 30 3
## 10 10 F Periyar nagar 30 3
## 11 11 F Periyar nagar 30 3
## 12 12 F Periyar nagar 30 3
## 13 13 A Periyar nagar 30 3
## 14 14 B Periyar nagar 30 3
## 15 15 C Periyar nagar 30 3
## 16 16 G Periyar nagar 30 3
## 17 17 F Periyar nagar 30 3
## 18 18 F Periyar nagar 30 3
## 19 19 F Periyar nagar 30 3
## 20 20 G Periyar nagar 30 3
## 21 21 G Periyar nagar 30 3
## 22 22 F Periyar nagar 30 3
## 23 23 F Periyar nagar 30 3
## 24 24 A Periyar nagar 30 3
## 25 25 B Periyar nagar 30 3
## 26 26 C Periyar nagar 30 3
## 27 27 G Periyar nagar 30 3
## 28 28 F Periyar nagar 30 3
## 29 29 F Periyar nagar 30 3
## 30 30 F Periyar nagar 30 3
## 31 31 G Periyar nagar 30 3
## 32 32 G Periyar nagar 30 3
## 33 33 F Periyar nagar 30 3
## 34 34 F Periyar nagar 30 3
## 35 35 A Periyar nagar 30 3
## 36 36 B Periyar nagar 30 3
## 37 37 C Periyar nagar 30 3
## 38 38 G Periyar nagar 30 3
## 39 39 F Periyar nagar 30 3
## 40 40 F Periyar nagar 30 3
## 41 41 F Periyar nagar 30 3
## 42 42 G Periyar nagar 30 3
## 43 43 G Periyar nagar 30 3
## 44 44 F Periyar nagar 30 3
## 45 45 G Periyar nagar 30 3
## 46 46 F Periyar nagar 30 3
## Fuel_cost
## 1 200
## 2 300
## 3 300
## 4 300
## 5 300
## 6 300
## 7 300
## 8 300
## 9 300
## 10 300
## 11 300
## 12 300
## 13 300
## 14 300
## 15 300
## 16 300
## 17 300
## 18 300
## 19 300
## 20 300
## 21 300
## 22 300
## 23 300
## 24 300
## 25 300
## 26 300
## 27 300
## 28 300
## 29 300
## 30 300
## 31 300
## 32 300
## 33 300
## 34 300
## 35 300
## 36 300
## 37 300
## 38 300
## 39 300
## 40 300
## 41 300
## 42 300
## 43 300
## 44 300
## 45 300
## 46 300
z=sum(df$Fuel_needed)
cat("The Total Litres of fuel required",z)
## The Total Litres of fuel required 137
y=sum(df$Fuel_cost)
cat(". The Total Fuel .cost",y)
## . The Total Fuel .cost 13700
print("Today's Bus Required is allocated")
## [1] "Today's Bus Required is allocated"
Stu_Rollno2=c(1:46)
Stu_name2=c('A','B','C','G','F','F','F','G','G', 'F', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F','G', 'F')
Stu_stop2<-c("Ponneri","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram")
print("The Total Students Bus Details")
## [1] "The Total Students Bus Details"
Buskm2<-c(10,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20)
df<-data.frame(Stu_Rollno2,Stu_name2,Stu_stop2,Buskm2)
print(df)
## Stu_Rollno2 Stu_name2 Stu_stop2 Buskm2
## 1 1 A Ponneri 10
## 2 2 B Tambaram 20
## 3 3 C Tambaram 20
## 4 4 G Tambaram 20
## 5 5 F Tambaram 20
## 6 6 F Tambaram 20
## 7 7 F Tambaram 20
## 8 8 G Tambaram 20
## 9 9 G Tambaram 20
## 10 10 F Tambaram 20
## 11 11 F Tambaram 20
## 12 12 F Tambaram 20
## 13 13 A Tambaram 20
## 14 14 B Tambaram 20
## 15 15 C Tambaram 20
## 16 16 G Tambaram 20
## 17 17 F Tambaram 20
## 18 18 F Tambaram 20
## 19 19 F Tambaram 20
## 20 20 G Tambaram 20
## 21 21 G Tambaram 20
## 22 22 F Tambaram 20
## 23 23 F Tambaram 20
## 24 24 A Tambaram 20
## 25 25 B Tambaram 20
## 26 26 C Tambaram 20
## 27 27 G Tambaram 20
## 28 28 F Tambaram 20
## 29 29 F Tambaram 20
## 30 30 F Tambaram 20
## 31 31 G Tambaram 20
## 32 32 G Tambaram 20
## 33 33 F Tambaram 20
## 34 34 F Tambaram 20
## 35 35 A Tambaram 20
## 36 36 B Tambaram 20
## 37 37 C Tambaram 20
## 38 38 G Tambaram 20
## 39 39 F Tambaram 20
## 40 40 F Tambaram 20
## 41 41 F Tambaram 20
## 42 42 G Tambaram 20
## 43 43 G Tambaram 20
## 44 44 F Tambaram 20
## 45 45 G Tambaram 20
## 46 46 F Tambaram 20
a=(df %>% count(Stu_stop2))
print(a)
## Stu_stop2 n
## 1 Ponneri 1
## 2 Tambaram 45
b=((a$n)/30)
print(b)
## [1] 0.03333333 1.50000000
c<-c(30,30,30,30,30)
Buses_required2<-ceiling(b)
print("The no of Bus Required is allocated")
## [1] "The no of Bus Required is allocated"
df1 <- data.frame(a,b,Buses_required2)
print(df1)
## Stu_stop2 n b Buses_required2
## 1 Ponneri 1 0.03333333 1
## 2 Tambaram 45 1.50000000 2
Fuel_price2<-readline(prompt="Enter the fuel price:")
## Enter the fuel price:
Milage2<-readline(prompt="Enter the Mileage:")
## Enter the Mileage:
as.integer(Fuel_price2)
## [1] NA
as.integer(Milage2)
## [1] NA
df<-data.frame(Stu_Rollno2,Stu_name2,Stu_stop2,Buskm2,Fuel_price2,Milage2)
df
## Stu_Rollno2 Stu_name2 Stu_stop2 Buskm2 Fuel_price2 Milage2
## 1 1 A Ponneri 10
## 2 2 B Tambaram 20
## 3 3 C Tambaram 20
## 4 4 G Tambaram 20
## 5 5 F Tambaram 20
## 6 6 F Tambaram 20
## 7 7 F Tambaram 20
## 8 8 G Tambaram 20
## 9 9 G Tambaram 20
## 10 10 F Tambaram 20
## 11 11 F Tambaram 20
## 12 12 F Tambaram 20
## 13 13 A Tambaram 20
## 14 14 B Tambaram 20
## 15 15 C Tambaram 20
## 16 16 G Tambaram 20
## 17 17 F Tambaram 20
## 18 18 F Tambaram 20
## 19 19 F Tambaram 20
## 20 20 G Tambaram 20
## 21 21 G Tambaram 20
## 22 22 F Tambaram 20
## 23 23 F Tambaram 20
## 24 24 A Tambaram 20
## 25 25 B Tambaram 20
## 26 26 C Tambaram 20
## 27 27 G Tambaram 20
## 28 28 F Tambaram 20
## 29 29 F Tambaram 20
## 30 30 F Tambaram 20
## 31 31 G Tambaram 20
## 32 32 G Tambaram 20
## 33 33 F Tambaram 20
## 34 34 F Tambaram 20
## 35 35 A Tambaram 20
## 36 36 B Tambaram 20
## 37 37 C Tambaram 20
## 38 38 G Tambaram 20
## 39 39 F Tambaram 20
## 40 40 F Tambaram 20
## 41 41 F Tambaram 20
## 42 42 G Tambaram 20
## 43 43 G Tambaram 20
## 44 44 F Tambaram 20
## 45 45 G Tambaram 20
## 46 46 F Tambaram 20
Fuel_needed2=((df$Buskm)/10)
as.integer(Fuel_needed2)
## [1] 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
## [39] 2 2 2 2 2 2 2 2
df<-data.frame(Stu_Rollno2,Stu_name2,Stu_stop2,Buskm2,Fuel_price2,Milage2,Fuel_needed2)
df
## Stu_Rollno2 Stu_name2 Stu_stop2 Buskm2 Fuel_price2 Milage2 Fuel_needed2
## 1 1 A Ponneri 10 1
## 2 2 B Tambaram 20 2
## 3 3 C Tambaram 20 2
## 4 4 G Tambaram 20 2
## 5 5 F Tambaram 20 2
## 6 6 F Tambaram 20 2
## 7 7 F Tambaram 20 2
## 8 8 G Tambaram 20 2
## 9 9 G Tambaram 20 2
## 10 10 F Tambaram 20 2
## 11 11 F Tambaram 20 2
## 12 12 F Tambaram 20 2
## 13 13 A Tambaram 20 2
## 14 14 B Tambaram 20 2
## 15 15 C Tambaram 20 2
## 16 16 G Tambaram 20 2
## 17 17 F Tambaram 20 2
## 18 18 F Tambaram 20 2
## 19 19 F Tambaram 20 2
## 20 20 G Tambaram 20 2
## 21 21 G Tambaram 20 2
## 22 22 F Tambaram 20 2
## 23 23 F Tambaram 20 2
## 24 24 A Tambaram 20 2
## 25 25 B Tambaram 20 2
## 26 26 C Tambaram 20 2
## 27 27 G Tambaram 20 2
## 28 28 F Tambaram 20 2
## 29 29 F Tambaram 20 2
## 30 30 F Tambaram 20 2
## 31 31 G Tambaram 20 2
## 32 32 G Tambaram 20 2
## 33 33 F Tambaram 20 2
## 34 34 F Tambaram 20 2
## 35 35 A Tambaram 20 2
## 36 36 B Tambaram 20 2
## 37 37 C Tambaram 20 2
## 38 38 G Tambaram 20 2
## 39 39 F Tambaram 20 2
## 40 40 F Tambaram 20 2
## 41 41 F Tambaram 20 2
## 42 42 G Tambaram 20 2
## 43 43 G Tambaram 20 2
## 44 44 F Tambaram 20 2
## 45 45 G Tambaram 20 2
## 46 46 F Tambaram 20 2
Fuel_cost2=((df$Fuel_needed2)*100)
print("The Fuel Required is calculated(in ltrs)")
## [1] "The Fuel Required is calculated(in ltrs)"
df<-data.frame(Stu_Rollno2,Stu_name2,Stu_stop2,Buskm2,Fuel_price2,Milage2,Fuel_needed2,Fuel_cost2)
print(df)
## Stu_Rollno2 Stu_name2 Stu_stop2 Buskm2 Fuel_price2 Milage2 Fuel_needed2
## 1 1 A Ponneri 10 1
## 2 2 B Tambaram 20 2
## 3 3 C Tambaram 20 2
## 4 4 G Tambaram 20 2
## 5 5 F Tambaram 20 2
## 6 6 F Tambaram 20 2
## 7 7 F Tambaram 20 2
## 8 8 G Tambaram 20 2
## 9 9 G Tambaram 20 2
## 10 10 F Tambaram 20 2
## 11 11 F Tambaram 20 2
## 12 12 F Tambaram 20 2
## 13 13 A Tambaram 20 2
## 14 14 B Tambaram 20 2
## 15 15 C Tambaram 20 2
## 16 16 G Tambaram 20 2
## 17 17 F Tambaram 20 2
## 18 18 F Tambaram 20 2
## 19 19 F Tambaram 20 2
## 20 20 G Tambaram 20 2
## 21 21 G Tambaram 20 2
## 22 22 F Tambaram 20 2
## 23 23 F Tambaram 20 2
## 24 24 A Tambaram 20 2
## 25 25 B Tambaram 20 2
## 26 26 C Tambaram 20 2
## 27 27 G Tambaram 20 2
## 28 28 F Tambaram 20 2
## 29 29 F Tambaram 20 2
## 30 30 F Tambaram 20 2
## 31 31 G Tambaram 20 2
## 32 32 G Tambaram 20 2
## 33 33 F Tambaram 20 2
## 34 34 F Tambaram 20 2
## 35 35 A Tambaram 20 2
## 36 36 B Tambaram 20 2
## 37 37 C Tambaram 20 2
## 38 38 G Tambaram 20 2
## 39 39 F Tambaram 20 2
## 40 40 F Tambaram 20 2
## 41 41 F Tambaram 20 2
## 42 42 G Tambaram 20 2
## 43 43 G Tambaram 20 2
## 44 44 F Tambaram 20 2
## 45 45 G Tambaram 20 2
## 46 46 F Tambaram 20 2
## Fuel_cost2
## 1 100
## 2 200
## 3 200
## 4 200
## 5 200
## 6 200
## 7 200
## 8 200
## 9 200
## 10 200
## 11 200
## 12 200
## 13 200
## 14 200
## 15 200
## 16 200
## 17 200
## 18 200
## 19 200
## 20 200
## 21 200
## 22 200
## 23 200
## 24 200
## 25 200
## 26 200
## 27 200
## 28 200
## 29 200
## 30 200
## 31 200
## 32 200
## 33 200
## 34 200
## 35 200
## 36 200
## 37 200
## 38 200
## 39 200
## 40 200
## 41 200
## 42 200
## 43 200
## 44 200
## 45 200
## 46 200
z2=sum(df$Fuel_needed)
cat("The Total Litres of fuel required",z2)
## The Total Litres of fuel required 91
y2=sum(df$Fuel_cost)
cat("The Total Fuel cost",y2)
## The Total Fuel cost 9100
mm=z-z2
cat("The Reduced fuel through the allocation is",mm)
## The Reduced fuel through the allocation is 46
mmm=y-y2
cat("The Reduced fuel through the allocation is",mmm)
## The Reduced fuel through the allocation is 4600