# NOT RUN {
data(data_compiled) #loading the example dataset compiled at file level
#saving a processed dataset (compiled at file level) with the same name
data_compiled<-ONA_compiled(data = data_compiled, ATN = "ATN", BC = "BC", file_id = "file_ID",
dATN = 0.05, threshold = 5, skip = 15, ignore = 10)
## The function is currently defined as
function (data = data, ATN = "ATN", BC = "BC", file_id = "file_ID",
dATN = 0.05, threshold = 5, skip = 15, ignore = 10)
{
data[, "file_ID"] <- as.factor(data[, "file_ID"])
data1 <- lapply(split(data, data[, file_id]), function(x) {
filter_adjust_ONA(x, ATN = ATN, BC = BC, dATN = dATN,
threshold = threshold, skip = skip, ignore = ignore)
})
names(data1) <- NULL
data2 <- do.call("rbind", data1)
return(data2)
}
# }
Run the code above in your browser using DataLab