run.single.model <- function(picked.vars, cases.)
{if(cases. == "imposition" | cases. == "threatonly")
{
picked.cases <- which(complete.datasets[[x]][,which(colnames(complete.datasets[[x]]) == cases.)]==1)
X.temp <- as.matrix(X[picked.cases,picked.vars])
Y.temp <- Y[picked.cases]
}