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