dput(head(Irr_norm,20))
structure(list(SiteDate = c("BC-T Aug_18_2020", "BC-T Aug_18_2020",
"BC-T Aug_18_2020", "BC-T Aug_18_2020", "BC-T Aug_18_2020", "BC-T Aug_18_2020",
"BC-T Aug_18_2020", "BC-T Aug_18_2020", "BC-T Aug_18_2020", "BC-T Aug_18_2020",
"BC-T Aug_18_2020", "BC-T Aug_18_2020", "BC-T Aug_18_2020", "BC-T Aug_18_2020",
"BC-T Aug_18_2020", "BC-T Aug_18_2020", "BC-T Aug_18_2020", "BC-T Aug_18_2020",
"BC-T Aug_18_2020", "BC-T Aug_18_2020"), wavelength = c(300,
301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, 313,
314, 315, 316, 317, 318, 319), Norm_irr = c(0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Norm_irr_equal_area = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), class = c("grouped_df",
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -20L), groups = structure(list(
SiteDate = "BC-T Aug_18_2020", .rows = structure(list(1:20), ptype = integer(0), class = c("vctrs_list_of",
"vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -1L), .drop = TRUE))