Speed Graph

distance<-c(24,78,564,55,600)
time<-c(3,12,90,10,100)
speed<-distance/time
speed
## [1] 8.000000 6.500000 6.266667 5.500000 6.000000
barplot(speed, main='Speed Graph in kms/hr',xlab='distance in kms',ylab='time in hours')

##Thank You