R code used to implement Bayesian sparse factor genetic analysis of Drosophila gene expression

This R code specifies parameters for input into model but requires an R package to be installed (code included for this).