data(testdata,package="snpStats")
A.small <- Autosomes[1:6,1:10]
gf <- tempfile()
mf <- tempfile()
## write in suitable format for beagle
nsnps <- ncol(A.small)
write.beagle(A.small, a1=rep("1",nsnps), a2=rep("2",nsnps), bp=1:nsnps, gfile=gf, mfile=mf)
unlink(gf)
unlink(mf)
Run the code above in your browser using DataLab