# NOT RUN {
data(data_ONA)#loading the example dataset
#calculating ONA processed black carbon first
data_ONA$ONA_BC<-ONA(data=data_ONA, ATN = "ATN", BC ="BC", dATN =0.05)
filter_loading(data =data_ONA, ATN = "ATN", ONA_BC="BC")
## The function is currently defined as
function (data, ONA_BC = "BC_ONA", ATN = "ATN")
{
data[, ONA_BC] * (0.88 * exp(-(data[, ATN])/100) + 0.12)^(-1)
}
# }
Run the code above in your browser using DataLab