Merge de reads x lncRNAs no R
system("pwd")
HCLnc <-read.delim(file="/work/srsilva/AssemblyUvul.HCLnclist.out",stringsAsFactors=FALSE)
HCLnc <-read.delim(file="/work/srsilva/Assembly/Uvul.HCLnclist.out",stringsAsFactors=FALSE)
HCLnc <-read.delim(file="/work/srsilva/Assembly/HCLnc/Uvul.HCLnclist.out",stringsAsFactors=FALSE)
colnames(HCLnc) <- c('IDreads')
concatena <-merge(x=readsvsmontagem, y=HCLnc, by='IDreads'
)
concatena
dim(concatena)
/U_vulgaris/Assemb/DBBwtUvulgaris/Uvul-counts.txt", stringsAsFactors=FALSE, header=FALSE)
colnames(readsvsmontagem) <-c('IDreads','count')
colnames(HCLnc) <- c('IDreads')
concatena <-merge(x=readsvsmontagem, y=HCLnc, by='IDreads')
dim(concatena)
dim(HCLnc)
dim(readsvsmontagem)
sel <- c("isotig38248","isotig32047","isotig38212","isotig35263","isotig40992","isotig02091","isotig02090","isotig40932")
sel
colnames(sel) <-c('IDreads')
head(concatena)
subset(concatena,IDreads %in% sel)
HCLnc <-read.delim(file="/work/srsilva/AssemblyUvul.HCLnclist.out",stringsAsFactors=FALSE)
HCLnc <-read.delim(file="/work/srsilva/Assembly/Uvul.HCLnclist.out",stringsAsFactors=FALSE)
HCLnc <-read.delim(file="/work/srsilva/Assembly/HCLnc/Uvul.HCLnclist.out",stringsAsFactors=FALSE)
colnames(HCLnc) <- c('IDreads')
concatena <-merge(x=readsvsmontagem, y=HCLnc, by='IDreads'
)
concatena
dim(concatena)
/U_vulgaris/Assemb/DBBwtUvulgaris/Uvul-counts.txt", stringsAsFactors=FALSE, header=FALSE)
colnames(readsvsmontagem) <-c('IDreads','count')
colnames(HCLnc) <- c('IDreads')
concatena <-merge(x=readsvsmontagem, y=HCLnc, by='IDreads')
dim(concatena)
dim(HCLnc)
dim(readsvsmontagem)
sel <- c("isotig38248","isotig32047","isotig38212","isotig35263","isotig40992","isotig02091","isotig02090","isotig40932")
sel
colnames(sel) <-c('IDreads')
head(concatena)
subset(concatena,IDreads %in% sel)
Comentários
Postar um comentário