make.example.files(writing.dir=tempdir())
pooldata1=popsync2pooldata(sync.file=paste0(tempdir(),"/ex.sync.gz"),poolsizes=rep(50,15))
pooldata2=pooldata1
#Merge pooldata1 and pooldata2 by SNP
pooldata2@poolnames=paste0(pooldata2@poolnames,"_2") #pool names must be different
data.merged=data.merge(pooldata1,pooldata2)
#Merge pooldata1 and pooldata2 by POP
pooldata2=pooldata1
pooldata2@snp.info[,1]=paste0(pooldata2@snp.info[,1],"_2") #SNP info must be different
data.merged=data.merge(pooldata1,pooldata2)
#Merge pooldata1 with a countdata object
#create a countdata object (NOTE: This example is just for the sake of illustration)
pooldata2genobaypass(pooldata=pooldata1,writing.dir=tempdir())
countdata=genobaypass2countdata(genobaypass.file=paste0(tempdir(),"/genobaypass"))
countdata@snp.info=pooldata1@snp.info
countdata@popnames=paste0(countdata@popnames,"_2") #pop names must be different
data.merged=data.merge(pooldata1,countdata)
Run the code above in your browser using DataLab