rev
"88TC88"
"AMI Entertainment"
"Beatport Digital Download Network"
"Bleep"
"Boomkat"
"BounDEE (Space Shower)"
"El Watusi (Descarga)"
"Genexies"
"HD Tracks"
"HDtracks"
"Hip Digital Media Inc"
"Hoopla (Midwest Tapes)"
"Insound, LLC"
"Jesta Digital"
"Juno Records"
"Leapfrog Enterprises, Inc."
"Mix&Burn"
"Mobizone"
"MONSTAR LAB, INC."
"Music Airport"
"Neowiz Bugs"
"Qobuz"
"Real GmbH"
"Red Touch Media"
"SIQME"
"Trackitdown.net"
"Traxsource"

tracks
"88TC88"
"AMI Entertainment"
"Beatport Digital Download Network"
"Bleep"
"Boomkat"
"BounDEE (Space Shower)"
"Dance Tracks Digital"
"Descarga"
"DJ Tunes"
"El Watusi (Descarga)"
"Europeana"
"Genexies"
"HD Tracks"
"Hip Digital Media Inc"
"Hoopla (Midwest Tapes)"
"Insound, LLC"
"Jesta Digital"
"Juno"
"Juno Records"
"Leapfrog Enterprises, Inc."
"Mix&Burn"
"Mobizone"
"MONSTAR LAB, INC."
"Music Airport"
"Music.jp"
"Naxos"
"Neowiz Bugs"
"Psonar Limited"
"Pulselocker"
"Pure Tracks"
"Qobuz"
"Real GmbH"
"Red Touch Media"
"Satellite (Corp Name: SDMS, LLC)"
"SIQME"
"Synchtank Ltd."
"Touchtunes"
"Trackitdown.net"
"Traxsource"


levs <-  unique(c(tracks, rev))
levs <-  setNames(nm=levs, obj=paste0("Store", fw0(seq(levs))))

revf <- unname(makeFactorUsingDict(rev, levs))
tracksf <- unname(makeFactorUsingDict(tracks, levs))

(copyAsCol(revf))
(copyAsCol(tracksf))

-----

r <- read.table("~/Desktop/r.tsv", sep="\t")
r <- as.matrix(r)
r[] <- trim(gsub("\\$|,", "", r))
r[] <- as.numeric(r)

r2 <- round(r * 8 * (1+{set.seed(17); rnorm(r, 0, .005)}))

r3 <- copy(r2)
r3[] <- removeNA(as.character(r3), "")


clipCopy(capture.output(write.csv(r3)))

-----

t <- read.table("~/Desktop/t.tsv", sep="\t")
dim_t <- dim(t)
t <- as.matrix(t)
t <- as.numeric(trim(gsub("\\$|,", "", t)))

t2 <- round(t * 8 * (1+{set.seed(17); rnorm(t, 0, .005)}))

t3 <- removeNA(as.character(t3), "")
dim(t3) <- dim_t

	clipCopy(capture.output(write.table(t3, row.names=FALSE, col.names=FALSE, sep="\t")))