DT.nms <- c("DT.Glitch.itunes_raw", "DT.Glitch.iradio_content", "DT.Glitch.iradio_event", "DT.Glitch.iradio_customer", "DT.Glitch.iradio_station")
DT.nms <- setNames(nm=DT.nms)

sapply(DT.nms, function(nm) {D <- get(nm); nrow(unique(D, by=NULL)) / nrow(D)})