data(testdata,package="snpStats")
A.small <- Autosomes[1:6,1:10]
R <- matrix(rnorm(12),ncol=2)
colnames(R) <- c("var1","var2")
f <- tempfile()
## write in suitable format for sbams
write.sbams(X=A.small, response=R, file=f)
unlink(f)
Run the code above in your browser using DataLab