### Use this if the RDA has been made using mismatching stats NZ files

load("kaleidoscope.rda")

subLevel$Miscellaneous$names[[4]] = "Direct credit service charges"
subLevel$Education$names[[4]] = "Other educational fees"

names(subsubLevel)[40] = "Other educational fees"
names(subsubLevel)[44] = "Direct credit service charges"

subsubLevel[[40]]$names = "Other educational fees"
subsubLevel[[44]]$names = "Direct credit service charges"
save(topLevel, subLevel, subsubLevel, file="kaleidoscope2.rda")