The purpose of this presentation is to evaluate the best diet to encourage weight gain among chicks.

The data I will be using is from the Chick Weight package already included in R studio. This data gives the weight over time of chicks on different diets. There are 4 diets, each with 20 chicks that undergo weight changes over 21 days.

-I will achieve this first by grouping the chicks together by their diet and then their individual weight gain over time.

-Next, I will group the data together by time and diet to see the change in weight over time among the different diets.

-Next, I will assess how the max weights are distributed between the diets and whether or not there are outliers that affect the overall analysis of the data.

-Finally, I will compare all of the data points by plotting all of the chicks based on max weight and diet.

The statistical analysis I did for my next graph was taking the mean weight of the chicks, grouping by time and diet. The code chunk below implemented this algorithm. As you can see on the next slide, chick growth is roughly linear, but shows a more exponential curve within the first 10 days.

avg_data = my_df %>%
  group_by(Time, Diet) %>%
  summarize(avg_weight = mean(weight), .groups = "keep")

My conclusion is that the best diet to encourage weight gain among chicks is diet 3. The outliers shown in the box plot do not affect the data significantly.