Recall the popular diets data set (PopularDiets.csv) that we have used before. We created a new data set called PopularDietsCombined.csv.It only contains observations for participants that completed the study, and it only contains the two variables WTLossKG (weight loss in kilograms) and Diet.

Now make two subsets of the data, one for the Ornish diet and one for the Weight Watchers diet. Use set.seed(125) and draw 1000 bootstrap samples to report a 95% bootstrap confidence interval for mean weight loss for each diet (so two Cis).Reset set.seed(125) for each diet type.Compare the intervals. What can you say about mean weight loss for the Ornish diet compared with the Weight Watchers diet?

data set (PopularDiets.csv):

PopularDietsCom Diet WtLossKG Atkins 16.7 Atkins 7.2 Atkins -7.5 Atkins 0.7 Atkins 0.7 Atkins -1.1 Atkins -2.3 Atkins 6.8 Atkins Atkins Atkins -1.9 Atkins 10.4 Atkins Atkins Atkins -0.8 Atkins Atkins Atkins 3.9 7.6 13.1 Atkins ornish Ornish 6.1 Ornish 0.8 Ornish 5.9 Ornish -1.2 Ornish -4.6 Ornish -10.2 Ornish 10.2 Ornish 28.7 Ornish 23.6 Ornish 4.8 Ornish -0.2 Ornish 5.1 ww 3.2 ww 11.9 8.6 -1.9