powered by
write.simple
write.phase(X, a1 = rep(1, ncol(X)), a2 = rep(2, ncol(X)), bp = NULL, file)
data(testdata,package="snpStats") A.small <- Autosomes[1:6,1:10] f <- tempfile() ## write in suitable format for PHASE nsnps <- ncol(A.small) write.phase(A.small, file=f) unlink(f)
Run the code above in your browser using DataLab