if (requireNamespace("ir", quietly = TRUE)) {
# convert biodiesel to a `ir` object
plotftir_to_ir(biodiesel,
metadata = data.frame("Biodiesel_Content" = c(0, 0.25, 0.5, 1, 2.5, 5, 7.5, 10, 0.5, 5, NA))
)
}
Run the code above in your browser using DataLab