# NOT RUN {
a <- ef_cetesb("CO", c("PC_G", "PC_FE", "PC_FG"), agemax = 20)
colplot(df = a, ylab = "CO [g/km]", theme = "dark", pch = NULL, type = "l")
#colplot(df = a, cols = "PC_FG", main = "EF", ylab = "CO [g/km]")
#colplot(df = a, ylab = "CO [g/km]", theme = "clean")
# }
Run the code above in your browser using DataLab