# NOT RUN {
# load field sparrow data
data(fiespa_occ)
# generate hcl color palette
pal <- palette_timecycle(fiespa_occ)
head(pal)
# visualize the palette in HCL space with colorspace::hclplot
library(colorspace)
hclplot(pal[pal$specificity == 100, ]$color)
# }
Run the code above in your browser using DataLab