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]
  }