# NOT RUN {
## load all dp files
# }
# NOT RUN {
dp.list <- dpload(dp.directory = system.file("extdata", package = "densitr"))
## trim the list
dp.trimmed <- dptriml(dp.list, rreport = TRUE)
## manually correct the failures
dp.corrected <- correct_failures(dp.trimmed)
# }
Run the code above in your browser using DataLab