Find the "5 numbers summary" of this data set using R programming

Find the "Mean", "Median", "histogram", "box plot" for this data set, including all steps writing in the R program".

########## ## # Reading the data into R: my.datafile <- tempfile() cat(file=my.datafile, " VELOCITY 23017 20186 23292 19408 24909 19866 22891 23121 19673 23261 22796 22355 19807 23432 22625 22744 22426 19111 18933 25417 19595 23408 22809 19619 22738 18499 19130 23220 22647 22718 22779 19026 22513 19740 22682 19179 19404 22193 ", sep=" ") options(scipen=999) # suppressing scientific notation velocity <- read.table(my.datafile, header=TRUE) velocity<-velocity[,1]