Loops crown volume calculation (solution)

Exercise

Output solution

Code solution for Crown Volume Calculation

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

Part 1

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] 3.702491

Part 2

[1] 18.14041

[1] 9.882335

Part 3