scripts/tests.R

load_all()

banks <- loadManuallyLinkedBanks()

t1 <- collapseManuallyLinkedTable(dt = banks)

t2 <- t1[, lapply(.SD, collapseDuplicatesWithinString)]

t2[, bscode.unique := selectUniqueBSIndex(bscode)]

allbanks <- getAllBanks()
jcizel/EBAResultAnalysis documentation built on May 18, 2019, 10:24 p.m.