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))