Could you please solve below in R ?

You have been provided with a data file in named airline.dat that contains data for these four measures in four columns:

Price (for a random sample of n = 5400 tickets)

Number_Cancelled_per_Day_per_500 (for a random sample of n = 450 days)

Bag_Delivery_Time (for a random sample of n = 75 passengers)

#_Lost_Bags (for n = 50 groups of 100 passengers each) which match the description of the data provided above.

For the data associated with Baggage Delivery Time at the Carousel: What percentage of the population of the passengers flying during the period represented by these data arrived at the carousel, waited 15 minutes, and THEN had to wait at least 25 MORE minutes for their bag to arrive (40 minutes or more total wait time).

long_wait <- na.omit(airline$Bag_Delivery_Time) mean(long_wait) ## 15.84275 min(long_wait) ## 6.76

pexp.low(q=25, low=6.76, mean = 15.84275, lower.tail = F)

For the data associated with Baggage Delivery Time at the Carousel: What is the p value of the statistical test you used to determine the underlying distribution of the population?