load("hocomoco.mono.rda")
hocomoco.mono[1:2,]
sapply(hocomoco.mono,class)
hocomoco.mono[,1] = as.character(hocomoco.mono[,1])
hocomoco.mono[,2] = as.character(hocomoco.mono[,2])
sapply(hocomoco.mono,class)
save(hocomoco.mono, file="hocomoco.mono.rda")
dir()
load("tftCollMap.rda")
class(tftCollMap)
tftCollMap = data.frame(tftCollMap)
head(tftCollMap)
tftCollMap = data.frame(tftCollMap, stringsAsFactors=FALSE)
head(tftCollMap)
sapply(tftCollMap, class)
ac = as.character; tftCollMap = data.frame(tftname=ac(tftCollMap[,1]), hgnc.heur=ac(tftCollMap[,2]), hgnc.fixed=ac(tftCollMap[,3]), stringsAsFactors=FALSE)
sapply(tftCollMap, class)
head(tftCollMap)
save(tftCollMap, file="tftCollMap.rda")
savehistory(file="fixups.hist.txt")
