--- a
+++ b/archives/RadETL/tests/testRadETL.R
@@ -0,0 +1,14 @@
+library(RadETL)
+
+# Image unpacking -> save RDS file
+path <- '~/signedrangeimages/IMAGES'
+savePathRoot <- '~/stored_data/signedrangeimages'
+dfm <- DcmFileModule$new(path = path, savePathRoot = savePathRoot, core = parallel::detectCores() - 1)
+res <- dfm$dcmToRDS(rootPathCount = 4, verbose = FALSE)
+
+# createRadiologyDB
+Rdb <- RadDB$new(core = parallel::detectCores() - 1)
+rcdm <- Rdb$createRadiologyDB(path = savePathRoot, idp = 2, o_start = 1)
+
+print.data.frame(rcdm[[1]], quote = TRUE) # Occurrence
+print.data.frame(rcdm[[2]], quote = TRUE) # Image