<<<<<<< HEAD ## Biography
I am a RaMP Fellow in the Landscape Ecology Lab! I am NOT from Philadelphia.
One amazing place I’d visited during orientation was the Cahaba River in Alabama. - The Cahaba River is the longest free-flowing river in AL at approx. 200 miles. - The Cahaba River is home to the endangered Cahaba Lily. - The River is home to 13 endemic plant and animal species.

library(leaflet)
leaflet() %>%
addTiles() %>%
addMarkers(lng = -87.0643894, lat = 33.0747889, popup = "Cahaba River National Wildlife Refuge")
# Example data
dbh_cm <- c(35, 23, 12, NA, 8) # tree diameters at breast height (cm)
plot_area_ha <- 0.1 # plot area in hectares
# Basal area helper (returns m^2 per tree)
basal_area_m2 <- function(dbh_cm) {
pi * (dbh_cm / 200)^2
}
# Compute per-tree BA, handle NAs
ba_per_tree <- basal_area_m2(dbh_cm)
ba_per_tree_clean <- ba_per_tree[!is.na(ba_per_tree)]
# Totals
total_ba_m2 <- sum(ba_per_tree_clean)
ba_per_ha <- total_ba_m2 / plot_area_ha
# Output a tidy table and the summary values
out <- data.frame(
Tree = seq_along(dbh_cm),
DBH_cm = dbh_cm,
BA_m2 = round(ba_per_tree, 4)
)
out
## Tree DBH_cm BA_m2
## 1 1 35 0.0962
## 2 2 23 0.0415
## 3 3 12 0.0113
## 4 4 NA NA
## 5 5 8 0.0050
total_ba_m2
## [1] 0.1540951
ba_per_ha
## [1] 1.540951
=======