fix #139

[bart1]

Now the vp starts at the correct altitude (same as baltrad)

devtools::load_all("~/getRad/")
#> ℹ Loading getRad
plot(bioRad::calculate_vp(get_pvol("detur",Sys.time()-1000)))
#> Running vol2birdSetUp
#> Warning: no dual-pol moments found, switching to SINGLE POL mode

[codecov]

Codecov Report

✅ All modified and coverable lines are covered by tests.
✅ Project coverage is 92.38%. Comparing base (490052e) to head (b75660f).
⚠️ Report is 2 commits behind head on main.

Additional details and impacted files

@@            Coverage Diff             @@
##             main     #140      +/-   ##
==========================================
+ Coverage   92.30%   92.38%   +0.07%     
==========================================
  Files          24       24              
  Lines        1754     1772      +18     
==========================================
+ Hits         1619     1637      +18     
  Misses        135      135              

☔ View full report in Codecov by Sentry.
📢 Have feedback on the report? Share it here.

🚀 New features to boost your workflow:

• ❄️ Test Analytics: Detect flaky tests, report on failures, and find test suite problems.

[PietrH]

You could have done this with purrr assignment, I have no preference.

https://purrr.tidyverse.org/reference/pluck.html

I didn't do any deep testing due to time constraints.