Code this in RStudio: A marketing study was conducted to compare the mean age of male and female purchasers of a certain product. Random and independent samples were selected for both male and female purchasers of the product. It was desired to test to determine if the mean age of all female purchasers exceeds the mean age of all male purchasers. The sample data is shown here: Female: n = 10, sample mean = 50.30, sample standard deviation = 13.215Male: n = 10, sample mean = 39.80, sample standard deviation = 10.040 Find the critical value to state the correct conclusion when testing at alpha = 0.01. To ease caclulations, use the shortcut for degrees of freedom: df = n1 + n2 -2