Copy the Old Faithful geyser's waiting durations data in R with the command wait=faithful$waiting. Use R commands to construct a 99% CI for the probability that awaiting duration will be

less than 80 min. Hint: The sample proportion can be found with the Rcommand sum (wait<80)/length(wait).