Loops tree growth (solution)

Exercise
Output solution

Attaching package: 'dplyr'
The following objects are masked from 'package:stats':

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union
Warning: One or more parsing issues, call `problems()` on your data frame for details,
e.g.:
  dat <- vroom(...)
  problems(dat)
Rows: 7508 Columns: 16
── Column specification ────────────────────────────────────────────────────────
Delimiter: "\t"
chr (7): SITE, TREATMENT, PLOT, SPECIES, DEAD, MEASUREMENT, STEMS
dbl (9): SURVEY, YEAR, BLOCK, ORIGINAL_TAG, NEW_TAG, HEIGHT, AXIS_1, AXIS_2,...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

1

[1] 2.9

2

`summarise()` has grouped output by 'TREATMENT'. You can override using the
`.groups` argument.
# A tibble: 1,518 × 3
# Groups:   TREATMENT [4]
   TREATMENT ORIGINAL_TAG  growth
   <chr>            <dbl>   <dbl>
 1 MEGA                64  -2.28 
 2 MEGA                65 NaN    
 3 MEGA                87   1.43 
 4 MEGA                88  -0.5  
 5 MEGA                89   1.08 
 6 MEGA                90   2.08 
 7 MEGA                91   2.2  
 8 MEGA                92   0.825
 9 MEGA                93   1.23 
10 MEGA               123   0.375
# ℹ 1,508 more rows

3

`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Warning: Removed 29 rows containing non-finite outside the scale range
(`stat_bin()`).

4

Warning: Returning more (or less) than 1 row per `summarise()` group was deprecated in
dplyr 1.1.0.
ℹ Please use `reframe()` instead.
ℹ When switching from `summarise()` to `reframe()`, remember that `reframe()`
  always returns an ungrouped data frame and adjust accordingly.
`summarise()` has grouped output by 'TREATMENT', 'ORIGINAL_TAG'. You can
override using the `.groups` argument.
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Warning: Removed 159 rows containing non-finite outside the scale range
(`stat_bin()`).

Warning: Returning more (or less) than 1 row per `summarise()` group was deprecated in
dplyr 1.1.0.
ℹ Please use `reframe()` instead.
ℹ When switching from `summarise()` to `reframe()`, remember that `reframe()`
  always returns an ungrouped data frame and adjust accordingly.
`summarise()` has grouped output by 'SPECIES', 'ORIGINAL_TAG'. You can override
using the `.groups` argument.
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Warning: Removed 110 rows containing non-finite outside the scale range
(`stat_bin()`).