Homework 9

random_data <- generate_random_data(n_groups = 4,
                                    n_obs_min = 25,
                                    n_obs_max = 100,
                                    mean_min = 12,
                                    mean_max = 40,
                                    sd_min = 2,
                                    sd_max = 5)
glimpse(random_data)

## Rows: 306
## Columns: 2
## $ Group <chr> "Group_1", "Group_1", "Group_1", "Group_1", "Group_1", "Group_1"…
## $ Value <dbl> 41.26130, 39.44118, 35.37441, 37.83508, 32.26249, 37.97364, 41.1…

head(random_data)

##     Group    Value
## 1 Group_1 41.26130
## 2 Group_1 39.44118
## 3 Group_1 35.37441
## 4 Group_1 37.83508
## 5 Group_1 32.26249
## 6 Group_1 37.97364

Let’s create some summary statistics.

group_stats <- calculate_group_stats(random_data)
print(group_stats)

##     Group Value.mean Value.median  Value.sd
## 1 Group_1  36.863351    37.661849  3.891632
## 2 Group_2  12.382406    12.587962  3.134671
## 3 Group_3  38.897723    38.855703  4.367461
## 4 Group_4  24.588884    24.322834  2.864058